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PREFACE 


The  SEEK  IGLOO  Life  Cycle  Cost  (LCC)  Model  is  presented  in 
three  volumes,  each  of  which  serves  a unique  function  and  addresses 
a specific  audience.  Volume  I,  Cost  Element  Equations,  presents  a 
discussion  of  the  accounting  model  which  is  used  to  estimate  the 
LCC  of  any  proposed  SEEK  IGLOO  Radar  System.  This  volume  presents 
the  equations  for  the  ten  Cost  Elements  which  comprise  the  account- 
ing model.  Also  included  is  a full  discussion  of  the  assumptions 
concerning  the  acquisition,  operation,  and  logistics  support  of  the 
proposed  radar  system  which  had  an  impact  on  the  development  of  the 
Cost  Element  equations.  The  intended  audience  of  Volume  I is  the 
cost  analyst  who  is  Interested  in  a discussion  of  the  various  Cost 
Element  equations  which  comprise  this  accounting  model. 

Volume  II,  the  User's  Manual,  presents  all  the  information 
necessary  to  run  the  computerized  LCC  Model  effectively.  Included 
in  this  volume  are  (1)  instructions  for  preparing  the  necessary  data 
input  files,  (2)  an  explanation  of  the  use  of  the  interactive  capa- 
bility, (3)  a discussion  of  how  to  interpret  the  output,  and  (4) 
a complete  presentation  of  the  built-in  Sensitivity  Analysis  capa- 
bility of  the  LCC  Model.  In  addition,  in  order  to  make  Volume  II 
a stand-alone  document,  a full  discussion  of  the  Cost  Element 
Equations  (Volume  I)  is  included  as  an  appendix.  Thus  Volume  II 
is  both  a necessary  and  sufficient  tool  for  utilizing  the  LCC 
Model  to  compute  the  LCC  of  a proposed  SEEK  IGLOO  Radar  System 
design. 

Volume  III,  the  Maintenance  Manual,  was  written  for  the  pro- 
grammer who-  must  maintain  or  possibly  modify  the  FORTRAN  code  of 
the  LCC  Model.  It  contains  a complete  discussion  of  the  structure, 
conventions,  subroutines,  etc.  of  the  LCC  Model  computer  program. 

A complete  listing  of  the  FORTRAN  code,  which  contains  extensive 
internal  comments,  is  Included  in  the  Maintenance  Manual. 
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SECTION  I 


GENERAL  DESCRIPTION 


1 . 1 Purpose  of  the  Maintenance  Manual 

The  purpose  of  this  document  is  to  enable  a maintenance  programmer  to 
effectively  maintain  the  SEEK  IGLOO  Interactive  Life  Cycle  Cost  (LCC)  Model 
computer  program.  This  maintenance  manual  is  meant  to  supplement,  rather 
than  duplicate,  the  extensive  comments  included  in  the  FORTRAN  source 
listing.  Thus,  this  document  gives  the  maintenance  programmer  a general 
discussion  of  the  computer  program,  allowing  the  programmer  to  refer  to  the 
internal  program  documentation  for  more  detailed  explanations. 

Because  a maintenance  programmer  may  be  required  to  set  up  the  SEEK 
IGLOO  LCC  Model  for  future  users,  this  document  instructs  the  maintenance 
programmer  on  how  to  set  up  the  LCC  model  for  both  interactive  and  batch 
runs  (Sections  2 and  3).  General  and  detailed  comments  about  the  FORTRAN 
code,  a detailed  flow-chart,  and  a cross-reference  chart  between  common 
blocks  and  subroutines  (Section  4)  are  included  to  supplement  the 
documentation  found  in  the  FORTRAN  source  listing.  Also  Included  in  this 
document  are  a complete  glossary  of  FORTRAN  variables  (Appendix  A)  and  a 
complete  listing  of  the  SEEK  IGLOO  Life  Cycle  Cost  Model  computer  program 
(Appendix  B). 

Excluded  from  this  document  are  input/output  descriptions,  operating 
instructions  for  users,  cost  element  equations,  an  explanation  of  the 
Sensitivity  Analysis  capability,  and  a listing  of  error  messages,  which  are 
all  described  in  Volume  II,  the  User's  Manual. 


1.2  Application  of  the  SEEK  IGLOO  Life  Cycle  Cost  Model 

The  SEEK  IGLOO  LCC  Model  is  a tool  to  estimate  the  total  Life  Cycle 
Cost  to  the  Government  of  alternative  SEEK  IGLOO  Radar  System  designs.  The 
model  highlights  cost  elements  which  depend  wholly  or  in  part  on  the  design 
of  the  radar  and  those  which  depend  on  Contractor-provided  data  which 
affect  support  concepts.  Thus,  the  LCC  Model  will  be  useful  to  both  the 
Government  and  the  Contractor  in  estimating  the  Life  Cycle  Cost  of 
potential  radar  system  designs. 

The  SEEK  IGLOO  LCC  Model  computer  program  consists  of  two  main 
components.  The  first  component  implements  an  accounting  model  which 
computes  the  Life  Cycle  Cost  of  the  SEEK  IGLOO  radar  system  based  on  the 
values  of  the  input  parameters  corresponding  to  a particular  system  design. 
The  output  of  this  first  component  gives  the  total  LCC  and  also  the  LCC 
broken  out  into  ten  component  Cost  Elements,  into  Development,  Production, 
and  Support  Costs,  and  into  cost  Incurred  at  different  locations  (e.g.. 


radar  sites  versus  repair  facilities).  The  breakdown  of  Life  Cycle  Cost 
into  various  categories  should  help  the  user  identify  areas  in  which  design 
and  cost  trade-offs  should  be  considered. 

• 

The  second  component  of  the  LCC  computer  program  provides  Sensitivity 
Analysis  computations  to  be  used  as  an  additional  aid  in  trade-off 
considerations.  More  specifically,  for  certain  selected  contractor 
parameter  inputs  (e.g.,  UC(i)  - the  unit  cost  of  the  ith  assembly,  or  FR(i) 
- the  failure  rate  of  the  ith  assembly)  this  program  component  computes  the 
average  change  (either  positive  or  negative)  in  total  LCC  which  is  produced 
by  a fractional  increase  in  the  value  of  the  given  parameter. 


1 . 3 General  Characteristics  of  the  Computer  Program 

The  program  is  highly  modular  and  has  a top-down  structure.  The  code 
was  written  in  ANS  FORTRAN  (X3. 9-1966),  except  for  its  use  of  the  NAMELIST 
feature,  so  that  it  would  be  compatible  with  almost  any  FORTRAN  compiler. 
The  code  has  a great  deal  of  internal  documentation  and  has  consistent 
naming  conventions.  These  general  aspects  of  the  computer  program  are 
detailed  in  Section  4.2. 


1 . 4 Required  Equipment 

To  run  the  program  in  the  interactive  environment  for  which  it  was 
designed,  the  user  will  need  a computer  facility  with  the  capability  of 
running  a FORTRAN  program  on-line  (i.e.,  in  interactive  mode)  with  256K 
bytes  of  memory,  six  input  files,  and  two  output  files.  Five  of  the  input 
files  are  assigned  to  card-image  data  sets.  The  other  (sixth)  input  file 
and  one  of  the  two  output  files  are  assigned  to  the  user's  terminal,  which 
must  have  at  least  72  columns.  The  remaining  output  file  is  assigned  to  an 
off-line  printer  of  at  least  12.’  character  width,  including  a carriage 
control  character. 

If  the  user  chooses  to  run  the  program  in  a batch  environment,  then  the 
user's  computer  facility  will  need  the  capability  of  running  a batch 
FORTRAN  program  with  256K  bytes  of  memory,  six  input  files,  and  two  output 
files.  All  six  input  files  are  assigned  to  card-image  data  sets.  One 
output  file  can  be  assigned  to  a data  set,  to  a dummy  file,  or  to  a 
printing  device.  The  other  output  file  is  assigned  to  an  off-line  printer 
of  at  least  121  character  width,  including  a carriage-control  character. 
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SECTION  II 


SETTING  UP  THE  LCC  MODEL  FOR  INTERACTIVE  RUNS 


2 . 1  Overview  of  Section  II 

The  purpose  of  this  section  Is  to  enable  the  maintenance  programmer  to 
set  up  the  SEEK  IGLOO  LCC  Model  for  interactive  use  on  an  IBM  370/158 
computer.  Section  2.2  includes  a very  general  description  of  the 
interactive  capability  (a  detailed  description  is  found  in  the  User's 
Manual).  Section  2.3  lists  the  file  allocations  necessary  for  an 
interactive  run  and  includes  a sample  IBM  exec  file  (called  a CLIST  under 
IBM's  Time  Sharing  Option).  Finally,  Section  2.4  illustrates  the  inputs 
and  outputs  for  a sample  terminal  session. 


2.2  General  Description  of  the  Interactive  Capability 

Figure  1 shows  the  LCC  Model's  configuration  when  used  in  interactive 
mode  (the  word  "CHANNEL"  in  Figure  1 refers  to  the  data  set  reference 
number  found  in  the  FORTRAN  code).  The  interactive  capability  allows  for 
the  repetitive  on-line  (i.e.,  interactive)  execution  of  the  LCC  model.  The 
model  reads  five  "standard"  data  files  which  contain  a complete  set  of 
inputs  (these  five  files  are:  Miscellaneous  Scalar  Inputs,  Support 
Equipment  Inputs,  Functional  Area  Inputs,  LRU  Equipment  Inputs,  and  LRU 
Maintenance  Inputs).  After  reading  the  five  files,  the  program  allows  the 
user  to  override  any  of  these  "standard"  inputs  by  entering  new  values  from 
his  terminal.  The  program  will  then  use  these  interactive  inputs  to 
calculate  and  print  the  LCC.  Thus,  the  interactive  feature  allows  the  user 
to  change  his  inputs  without  altering  his  five  "standard"  input  files. 


2.3  Setting  Up  an  Interactive  Run 

After  having  set  up  the  five  "standard"  data  files  (see  Section  3.2  of 
the  User's  Manual),  to  run  the  SEEK  IGLOO  LCC  Model  in  an  interactive  mode, 
the  user  must  perform  (or  have  performed  for  him  or  her)  the  following 
steps : 

1.  Log  his  or  her  terminal  onto  the  computer  with  256K  bytes  of 
memory. 

2.  Assign  FORTRAN  input/output  channel  11  to  the  Miscellaneous  Scalar 
Inputs  data  set. 

3.  Assign  FORTRAN  input /output  channel  12  to  the  Support  Equipment 
Inputs  data  set. 

4.  Assign  FORTRAN  input/output  channel  13  to  the  Functional  Area 
Inputs  data  set. 
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, 

5.  Assign  FORTRAN  input/output  channel  14  to  the  LRU  Equipment  Inputs 
data  set. 

6.  Assign  FORTRAN  input /output  channel  15  to  the  LRU  Maintenance 
Inputs  data  set. 

7.  Assign  FORTRAN  input /output  channel  5 to  his  or  her  terminal. 

8.  Assign  FORTRAN  input/output  channel  6 to  his  or  her  terminal. 

9.  Assign  FORTRAN  input/output  channel  7 to  the  off-line  printer. 

10.  Call  for  the  on-line  execution  of  the  program. 

11.  Give  appropriate  responses  to  the  program  generated  prompts. 

Figure  2 below  shows  a sample  IBM  exec  file  (called  a CLIST  under  TSO) 
that  performs  steps  2 to  10  on  an  IBM  370/158  computer.  Step  11  (giving 
responses  to  the  program-generated  prompts)  is  explained  in  detail  in 
Section  3.3  of  the  User's  Manual  and  only  in  general  in  the  following 
subsection. 


FREEALL 

ALLOC  DA (SC ALAR. DAT  A)  FI(FTllFOOl) 
ALLOC  DA (SUPPORT. DATA)  FI(FT12F001) 
ALLOC  DA(FUNCT.DATA)  FI(FT13F001) 
ALLOC  DA (LRUEQU .DATA)  FI(FT14F001) 
ALLOC  DA(LRUMAIN.DATA)  FI(FT15F001) 
ALLOC  DA(*)  FI (FT05F001 ) 

ALLOC  DA(*)  FI(FT06F001) 

ALLOC  FI (FT07F001 ) SYSOUT(A) 

CALL  IGLOO (TEMPNAME) 

FREEALL 


Figure  2:  Sample  CLIST 


( 2.4  Giving  Appropriate  Responses  to  the  Program-Generated  Prompts 

Section  3.3  of  the  User's  Manual  gives  detailed  instructions  on  how  to 
respond  to  the  program-generated  prompts.  These  instructions  will  not  be 
repeated  here.  For  easy  reference.  Figure  3 shows  a sample  terminal 
session.  In  Figure  3 sample  program-generated  prompts  appear  in  capital 
letters  and  sample  user  responses  appear  in  small  letters.  Also,  those 
i portions  of  the  program-generated  prompts  which  would  not  be  displayed 

under  minimum  prompting  are  enclosed  in  brackets. 

j 

i 
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SEEK  IGLOO  LIFE  CYCLE  COST  MODEL 

MINIMUM  OR  MAXIMUM  PROMPTING  (MIN  OR  MAX)-? 

max 

OUTPUT  AT  TERMINAL  (Y  OR  N)-? 

y 

OUTPUT  ON  OFF-LINE  PRINTER  (Y  OR  N)-? 

y 

SUBMIT  A TITLE  FOR  THIS  RUN: 
first  run 

SET  EXIT=1  IN  EITHER  NAMELIST  IF  YOU  WANT  TO  EXIT. 


NAMELIST  /GO/  CONTAINS  ALL  VARIABLES  FOUND  IN  THE  INPUT 
FILES.  AT  THIS  POINT,  NAMELIST  /GO/  VARIABLES  CONTAIN 
VALUES  AS  IN  THE  INPUT  FILES.  TO  USE  THESE  VALUES,  SUBMIT  AN 
EMPTY  NAMELIST  /GO/.  TO  OVERRIDE  ANY  OF  THESE  VALUES,  SUBMIT  A 
NON-EMPTY  NAMELIST  /GO/. 

SUBMIT  NAMELIST  /GO/  IN  NAMELIST  FORMAT: 


Sgo  uc(2)=275,  fac(l)-3000,  qpa(5)=0  $end 


NAMELIST  /SENS/  CONTAINS  VARIABLES  THAT  CONTROL  THE  DISPLAY  OF 
THE  SENSITIVITY  ANALYSIS.  AT  THIS  POINT,  THE  TERMINAL  DISPLAYS 
SENSITIVITY  WITH  RESPECT  TO  ONLY  GLOBAL  FAILURE  RATE  (K)  AND 
GLOBAL  EQUIPMENT  COST  (XUC  FACTOR).  FOR  THE  SAME  TERMINAL 
DISPLAY,  SUBMIT  AN  EMPTY  NAMELIST  /SENS/.  FOR  A DIFFERENT 
TERMINAL  DISPLAY,  SUBMIT  A NON-EMPTY  NAMELIST  /SENS/. 


Figure  3:  Sample  User  Terminal  Interactive  Sequence 
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SUBMIT  NAMELIST  /SENS/  IN  NAMELIST  FORMAT: 


$sens  ldfr-6,  ldmci«6,  ldsrts=6  $end 


LCC  COMPLETED. 

IF  YOU  WISH  TO  EXIT,  HIT  -E-,  THEN  HIT  -RETURN-;  OTHERWISE, 
ADJUST  TERMINAL  TO  NEW  PAGE  AND  HIT  -RETURN-. 

(LCC  OUTPUT  TABLE) 

IF  YOU  WISH  TO  EXIT,  HIT  -E-,  THEN  HIT  -RETURN-;  OTHERWISE, 
ADJUST  TERMINAL  TO  NEW  PAGE  AND  HIT  -RETURN-. 

(SENSITIVITY  ANALYSIS  TABLE) 

ANOTHER  RUN  (Y  OR  N)-? 

y 

AT  THIS  POINT,  VARIABLE  VALUES  ARE  AS  THEY  WERE  AFTER  THE  LAST 
NAMELISTS  WERE  SUBMITTED.  DO  YOU  WISH  TO  RESET  NAMELIST  /GO/ 
VARIABLES  TO  THE  VALUES  FOUND  IN  THE  INPUT  FILES  (Y  OR  N)-? 

n 

MINIMUM  OR  MAXIMUM  PROMPTING  (MIN  OR  MAX)-? 


max 

OUTPUT  AT  TERMINAL  (Y  OR  N)-? 

y 

OUTPUT  ON  OFF-LINE  PRINTER  (Y  OR  N)-? 

y 


Figure  3:  Sample  User  Terminal  Interactive  Sequence  (Continued) 
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SUBMIT  A TITLE  FOR  THIS  RUN: 
second  run 


SET  EXIT=1  IN  EITHER  NAMELIST  IF  YOU  WANT  TO  EXIT. 

NAMELIST  /GO/  CONTAINS  ALL  VARIABLES  FOUND  IN  THE  INPUT  FILES. 
AT  THIS  POINT,  NAMELIST  /GO/  VARIABLES  ARE  AS  THEY  WERE  AFTER 
THE  LAST  NAMELIST  /CO/  WAS  SUBMITTED.  TO  USE  THESE  VALUES, 
SUBMIT  AN  EMPTY  NAMELIST  /GO/.  TO  OVERRIDE  ANY  OF  THESE 
VALUES , SUBMIT  A NON-EMPTY  NAMELIST  /GO/. 

SUBMIT  NAMELIST  /GO/  IN  NAMELIST  FORMAT: 


$go  $end 

NAMELIST  /SENS/  CONTAINS  VARIABLES  THAT  CONTROL  THE  DISPLAY  OF 
THE  SENSITIVITY  ANALYSIS.  AT  THIS  POINT,  THE  TERMINAL 
SENSITIVITY  DISPLAY  IS  AS  IT  WAS  ON  THE  PREVIOUS  RUN.  FOR  THE 
SAME  TERMINAL  DISPLAY,  SUBMIT  AN  EMPTY  NAMELIST  /SENS/.  FOR  A 
DIFFERENT  TERMINAL  DISPLAY,  SUBMIT  A NON-EMPTY  NAMELIST  /SENS/. 

SUBMIT  NAMELIST  /SENS/  IN  NAMELIST  FORMAT: 

$sens  fine**. 20,  ldfr'O  $end 

LCC  COMPLETED. 

IF  YOU  WISH  TO  EXIT,  HIT  -E-,  THEN  HIT  -RETURN-;  OTHERWISE, 
ADJUST  TERMINAL  TO  NEW  PACE  AND  HIT  -RETURN-. 

(LCC  OUTPUT  TABLE) 

IF  YOU  WISH  TO  EXIT,  HIT  -E-,  THEN  HIT  -RETURN-;  OTHERWISE, 
ADJUST  TERMINAL  TO  NEW  PAGE  AND  HIT  -RETURN-. 

(SENSITIVITY  ANALYSIS  TABLE) 

ANOTHER  RUN  (Y  OR  N)-? 

n 


Figure  3:  Sample  User  Terminal  Interactive  Sequence  (Concluded) 
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SECTION  I IT 


SETTING  UP  THE  LCC  MODEL  FOR  BATCH  RUNS 

3 . 1  Overview  of  Section  III 

The  purpose  of  this  section  Is  to  instruct  the  maintenance  programmer 
on  how  to  set  up  the  SEEK  IGLOO  LCC  Model  for  batch  runs.  Section  3.2 
explains  why  a user  might  want  to  run  the  LCC  Model  in  a batch  environment. 
Section  3.3  explains  the  file  allocations  required  for  a batch  run  and 
includes  sample  Job  Control  Language  for  running  the  program  on  an  IBM 
370/158  computer. 


3.2  Why  Run  the  Program  in  Batch  Mode? 

Batch  execution  of  the  LCC  Model  allows  the  user  to  run  the  LCC  Model 
without  having  to  spend  a great  deal  of  time  at  his  terminal.  Two  types  of 
users  will  want  to  run  the  LCC  Model  in  batch  mode:  the  user  whose 
computer  facility  cannot  run  the  program  interactively;  and  the  user  who 
prefers  the  slower,  more  methodical,  and  usually  less  expensive 
characteristics  of  batch  execution. 
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3 . 3  Setting  Up  a Batch  Run 

Appendix  E of  the  SEEK  IGLOO  LCC  Model  User's  Manual  describes  in 
detail  the  content  of  the  data  files  needed  for  a batch  run.  This 
subsection  supplies  a general  description  of  the  content  of  the  data  files 
needed  for  a batch  run,  a description  of  the  output  files  from  a batch  run, 
and  a description  of  the  JCL  need  for  a batch  run. 

Figure  A shows  the  LCC  Model's  configuration  in  batch  mode  (the  word 
CHANNEL"  in  Figure  A again  refers  to  the  data  set  reference  number  found 
in  the  FORTRAN  code).  The  content  of  the  five  "standard"  data  files 
(Miscellaneous  Scalar  Inputs,  Inputs  by  Support  Equipment  type.  Inputs  by 
Functional  Area,  LRU  Equipment  Inputs,  and  LRU  Maintenance  Inputs)  is  the 
same  for  a batch  run  as  for  an  interactive  run.  A sixth  input  data  file 
needs  to  be  created  for  a batch  run,  however.  It  contains  a listing  of  the 
responses  to  program-generated  prompts  which  the  user  would  have  given  had 
the  user  run  the  program  interactively. 

As  with  an  interactive  run,  there  are  two  output  files  from  a batch 
run.  One  of  the  files  (channel  7)  should  be  assigned  to  the  off-line 
printer.  The  other  file  (channel  6)  can  be  assigned  to  one  of  three 
things:  to  a dummy  file  (in  case  the  user  requests  off-line  printing 

only);  to  a permanent-resident  data  set  (if,  for  some  reason,  the  user 
wishes  to  save  the  prompts  and  output  that  would  have  gone  to  the  terminal 

1A 
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in  interactive  mode);  or  to  a printing  device  (if  the  user  wishes  hard- 
copy of  the  prompts  and  output  that  would  have  gone  to  the  terminal  in 
interactive  mode). 

Figure  5 contains  a listing  of  the  IBM  JCL  needed  to  run  the  program  in 
batch  mode.  The  figure  is  based  on  the  following  assumptions:  data  sets 
TS0848. SCALAR. DATA,  TS0848. SUPPORT. DATA,  TS0848.FUNCT .DATA, 
TS0848.LRUEQU.DATA,  and  TS0848 .LRUMAIN .DATA  contain  Miscellaneous  Scalar 
Inputs,  Inputs  by  Support  Equipment  type,  Inputs  by  Functional  Area, 
Equipment  Inputs  by  LRU,  and  Maintenance  Inputs  by  LRU,  respectively; 
TS0848. RESPONSE. DATA  contains  the  responses  which  the  user  would  have  typed 
at  the  terminal  had  he  been  in  interactive  mode;  channel  6,  through  which 
the  program  sends  out  its  prompts  and  terminal  output  tables  when  in 
interactive  mode,  is  assigned  to  a dummy  file;  channel  7 is  assigned  to 
the  off-line  printer;  the  load  module  to  be  executed  is 
TS0848. IGLOO. LOAD (GO ) ; and  all  data  sets  are  catalogued. 


//SAMPLE  JOB  ( , , ) , 'H.  SAMSON' ,REGION=256K, etc.. . 

//JOBLIB  DD  DSN-TS0848. IGLOO. LOAD, DISP-SHR 
//  EXEC  PGM-GO 

//FT  1 1F001  DD  DSN-TS0848. SCALAR. DATA, DISP-SHR 

//FT12F001  DD  DSN-TS0848. SUPPORT. DATA, DISP-SHR 

/ /FT13F001  DD  DSN-TS0848.FUNCT. DATA, DISP-SHR 

//FT14F001  DD  DSN-TS0848.LRUEQU .DATA, DISP-SHR 

/ /FT I5F001  DD  DSN-TS0848. LRUMAIN. DATA, DISP-SHR 

/ /FT05F001  DD  DSN-TS0848. RESPONSE. DATA, DISP-SHR 

//FT06F001  DD  DUMMY 

//FT07F001  DD  SYSOUT-A 


Figure  5:  JCL  for  Batch  Execution 
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SECTION  IV 


DETAILED  DESCRIPTION  OF  THE  FORTRAN  CODE 


4.1  Overview  of  Section  IV 

The  various  subsections  of  Section  IV  each  elaborate  on  a single  aspect 
of  the  FORTRAN  code.  The  discussions  are  meant  to  supplement,  rather  than 
duplicate,  the  extensive  documentation  found  within  the  FORTRAN  code. 
Section  4.2  comments  on  the  code  in  general.  Sections  4.3  to  4.12  each 
elaborate  on  a single  subroutine  or  a related  group  of  subroutines. 

Section  4.13  is  concerned  with  the  program's  use  of  index  numbers.  Section 
4.14  discusses  the  program's  use  of  common  blocks  and  includes  a chart 
showing  the  correspondence  between  subroutines  and  common  blocks.  Finally, 
Section  4.15  contains  a flow-chart  of  the  program  and  a discussion  of  the 
flow-chart . 


4.2  General  Comments  About  the  FORTRAN  Code 

The  following  general  comments  about  the  FORTRAN  code  might  be  helpful 
to  the  maintenance  programmer. 

1.  The  program  was  written  in  ANS  (American  National  Standard:  X3.9- 
1966)  FORTRAN  so  that  it  would  be  compatible  with  as  many  machines 
as  possible.  The  following  characteristics  exemplify  the 
attempted  compatibility: 

a.  All  mixed-mode  arithmetic  has  explicit  integer-to-real 
conversions . 

b.  All  variables  take  up  a single  word  of  memory  (no  Integer*2 
or  Real*8  variables). 

c.  Characters  are  stored  one  character  per  memory  location 
(hence,  a 28-character  string  is  stored  in  a 28-element 
array) . 

2.  The  code  has  a top-down  structure  that  is  depicted  in  the  mini- 
flow chart  of  Figure  6.  One  pass  through  the  loop  in  Figure  6 
represents  a single  calculation  of-  the  LCC.  The  user  can  make 
multiple  passes  through  the  loop  (thereby  generating  multiple 
calculations  of  the  LCC)  by  successively  responding  'y'  to  the 
prompt  'ANOTHER  R'JN  (Y  OR  N)-?'. 
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Figure  6:  Mini-Flow  Chart  of  LCC  Model 
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3.  The  program  is  highly  modular.  The  MAIN  routine  consists  almost 
entirely  of  subroutine  calls,  with  each  subroutine  performing  a 
single  function.  For  instance,  for  each  of  the  five  data  files 
that  must  be  read,  there  is  a single  subroutine  which  does  nothing 
but  read  the  given  data  file  and  check  for  index  number  errors. 
Similarly,  for  each  cost  element  there  is  a single  subroutine  that 
does  nothing  but  calculate  the  given  cost  element. 

4.  The  program  has  extensive  in-line  comments.  The  maintenance 
programmer  should  have  little  difficulty  determining  the  intent  of 
any  particular  block  of  code. 


4 . 3 Initialization  Routines  (SNSSET  and  INITAL)  ^ 

Subroutine  SNSSET  initializes  the  parameters  which  control  the 
Sensitivity  Analysis  printout  (refer  to  subsection  4.10  for  a discussion  of 
the  Sensitivity  Analysis).  LDERV  is  set  to  12;  FINC  is  set  to  .1;  all  j 

other  control  parameters  (LDFR,  LDUC,  LDWOR,  LDFPR,  LDCMH,  LDDMH,  LDRM, 

LDSRTS,  LDCRTS,  LDDRTS,  LDMCI)  are  set  to  zero.  These  initial  values 

cause:  * 


1.  the  "default"  off-line  Sensitivity  Analysis  printout  to  show  the 
12  most  significant  sensitivity  calculations  for  each  LRU-indexed 
parameter  which  is  subject  to  Sensitivity  Analysis. 

2.  the  "default"  user  terminal  Sensitivity  Analysis  printout  to  show 
Sensitivity  calculations  only  with  respect  to  the  K-factor  and  the 
XUC-f actor . 


For  off-line  output  and  for  terminal  output,  the  "default"  printout  is 
displayed  unless  the  user  gives  specific  interactive  instructions  through 
NAMELIST  /SENS/  (Namelist  /SENS/  contains  parameters  that  control  the 
Sensitivity  Analysys  printout). 

Certain  other  non-sensitivity  analysis  variables  are  given  initial 
values  In  subroutine  INITAL.  The  variables  which  are  initialized  in 
subroutine  INITAL  include  MAXHRS,  MAXFA,  MAXLR,  MAXSE,  CONFLO,  FAC(.), 
NSES(j),  NSEC(j),  NSED(j),  UC(i),  FPR(i) , CMH(i),  DMH(i),  RM(i) , MCI(i), 
QPA(i) , and  MTBI(i). 


4.4  Prompting  Routines  (PRMPT1  to  PRMPT5) 

PRMPT1  to  PRMPT5  are  subroutines  that  send  prompts  to  the  user  and 
receive  the  user's  responses. 
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PRMPT1  sets  variables  MAXPMT , PRNT,  and  REREAD.  MAXPMT  is  set  to  1 if 
the  user  responds  'min'  to  the  prompt:  "MINIMUM  or  MAXIMUM  PROMPTING  (MIN 
OR  MAX)  -?".  PRNT  is  set  according  to  the  user's  responses  to  the  prompt: 
"OUTPUT  AT  TERMINAL  (Y  OR  N)  -?"  and  "OUTPUT  ON  OFFLINE  PRINTER (Y  OR  N)  - 
?".  It  receives  the  value  0 if  the  user  requested  terminal  output  only;  1 
for  off-line  output  only;  and  2 for  both  terminal  and  off-line  output.  If 
the  user  answered  'n'  to  both  questions,  PRNT-O.  REREAD  is  set  to  1 on  the 
second  and  subsequent  runs  if  the  user  responds  'y'  to  the  prompt:  "DO  YOU 
WISH  TO  RESET  NAMELIST  /GO/  VARIABLES  TO  THE  VALUES  FOUND  IN  THE  INPUT 
FILES  (Y  OR  N)  -?".  REREAD  is  not  relevant  on  the  first  run  of  the  LCC. 

PRMPT2  asks  the  user  to  submit  NAMELISTs  /GO/  and  /SENS/.  NAMELIST 
/GO/  contains  LCC  inputs.  The  values  which  are  inputted  through  NAMELIST 
/GO/  override  the  values  found  in  the  five  "standard"  data  files  (or  the 
values  used  in  the  previous  pass  if  this  pass  is  not  the  first  and  if  the 
user  did  not  choose  to  reread  the  five  "standard"  data  files  at  the  start 
of  this  pass).  Namelist  /SENS/  contains  parameters  that  control  the 
Sensitivity  Analysis  printout. 

PRMPT3  tells  the  user  that  the  LCC  has  been  completed  and  allows  the 
user  to  adjust  the  terminal  to  a new  page  before  Output  Table  1 is  printed. 
PRMPT4  is  called  if  the  user  requested  terminal  printing.  It  allows  the 
user  to  adjust  the  terminal  to  a new  page  before  the  Sensitivity  Analysis 
printout.  PRMPT5  asks  the  user  if  another  run  is  desired. 

The  user  can  exit  from  the  program  in  PRMPT2  by  setting  EXIT-1  in 
either  namelist.  The  user  can  exit  from  PRMPT3  or  PRMPT4  by  hitting  "e" 
and  then  carriage  return  in  response  to  the  program-generated  message. 

These  escapes  send  the  program  to  PRMPT5. 

Maximum  prompting  gives  the  user  a longer,  more  descriptive  set  of 
program-generated  prompts.  Max-prompting  can  be  switched  to  min-prompting 
on  subsequent  passes  within  a single  interactive  session,  whereas  a switch 
from  min-prompting  to  max-prompting  is  not  possible. 


4.5  Read  Routines  (READ1  to  READ5) 

Each  of  the  READ  subroutines  reads  a single  input  file  and  checks  for 
index  number  errors.  The  correspondence  is  as  follows: 


Miscellaneous  Scalar  Inputs 
Support  Equipment  Inputs 
Functional  Area  Inputs 
LRU  Equipment  Inputs 
LRU  Maintenance  Inputs 


described  in  detail  in  Section  3.2  of  the  User's  Manual.  In  particular, 


READ1 

reads 

UNIT 

11: 

READ  2 

reads 

UNIT 

12: 

READ  3 

reads 

UNIT 

13: 

READ  4 

reads 

UNIT 

14: 

READS 

reads 

UNIT 

15: 

The  proper  formatting 
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the  data  inputs  in  UNITS  12  through  15  are  ordered  on  the  basis  of  their 
index  numbers.  The  rules  governing  the  use  of  index  numbers  on  these  data 
input  files  are  explained  in  Section  3.2  of  the  User's  Manual  and  in 

1 Section  4.13  of  this  document. 

. 

4.6  Data  Input  Value  Error  Checks  (ERRCHK) 

Additional  error  checks  involving  the  values  of  data  parameters  are 
performed  by  subroutine  ERRCHK.  Two  types  of  errors  are  possible:  warning 
and  fatal.  If  an  error  is  found,  the  program  generates  a message  and 
increments  the  appropriate  internal  counter  (IWARN  for  a warning  error; 
IERROR  for  a fatal  error).  A warning  error  results  in  a warning  message 
and  in  the  assigning  of  a default  value  to  the  error-generating  parameter; 
a fatal  error  results  in  an  error  message  and  no  calculation  of  the  LCC 
(the  program  skips  the  LCC  calculation  by  jumping  to  PRMPT5).  Section 
3.3.1  of  the  User's  Manual  contains  a list  of  the  data  input  value  error 
messages . 


4.7  Auxiliary  Variable  Routines  (AUXIL1  to  AUXIL5) 

All  auxiliary  variables  are  calculated  according  to  the  equations  found 
in  Appendix  B of  the  SEEK  IGLOO  User's  Manual.  The  only  complex  routines 
involve  the  calculations  of  Z,  STK1,  and  STK,  which  are  done  in  subroutine 
AUXIL5 . 

AUXIL5  calculates  Z from  the  value  the  user  gives  to  confidence  factor 
CONF.  Z is  the  approximate  upper  limit  on  the  integral  of  the  standard 
normal  distribution  such  that  the  value  of  the  definite  integral  from 
negative  infinity  to  Z equals  CONF.  The  integral  is  approximated  using  the 
trapezoidal  rule. 

The  stocking  factors  (STK1  and  STK)  are  calculated  according  to  the 
equations  in  Section  C.4  of  the  User's  Manual.  The  User's  Manual  assumes 
convergence  of  the  series  1.1  in  Section  C.4.  However,  if  the  series 
doesn't  converge  after  200  iterations,  the  progn  m generates  an  error 
message. 


4.8  Cost  Element  Routines  (C0ST1  to  COST  10) 

Subroutines  COST1  to  COSTIO  each  calculate  a single  cost  element  of  the 
LCC.  The  program  calculates  these  cost:  elements  according  to  their 
equations  as  given  in  Appendix  C of  the  User's  Manual. 

4.9  Non-Cost  Routine  (NONCOS) 
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NONCOS  calculates  certain  variables  not  used  in  the  LCC  calculations, 
lhese  variables  have  to  do  with  maintenance  man-hours  and,  although  they 
are  not  of  interest  in  terms  of  dollars,  they  are  still  of  interest  in 
determining  whether  certain  maintenance  constraints  have  been  met. 
Variables  CLH,  PMFA(j),  SMMH , SPMH,  and  STMH  are  calculated  in  NONCOS. 

CLH,  SMMH,  SPMH,  and  STMH  are  checked  against  certain  maintenance  man-hour 
constraints  in  subroutine  0TAB1.  If  they  fail  the  required  test,  0TAB1 
generates  an  error  message.  PMFA(j)  is  the  annual  preventive  maintenance 
man-hours  expended  at  each  radar  site  within  Functional  Area  j.  It  is  one 
of  the  outputs  in  Output  Table  4. 


4.10  Sensitivity  Analysis  Routines  (DXUC  to  PMC I,  CHCALC,  TDSORT, 
and  OSENS) 

Subroutines  DXUC,  DFR,  DK,  DUC,  ...,  DMCI  each  calculate  the 
Sensitivity  of  the  LCC  with  respect  to  a single  parameter  (XUC,  FR(i),  K, 
UC(i),  ....  MCI(i),  respectively).  Subroutine  OSENS  prints  the  Sensitivity 
Analysis  results.  Except  for  DXUC  and  DK,  these  calculations  are  indexed 
by  LRU  type. 

The  Sensitivity  of  LCC  with  respect  to  a given  parameter  xxx  is  the 
average  change  in  LCC  which  results  from  a given  change  in  the  value  of 
parameter  xxx.  In  effect,  these  calculations  are  equivalent  to  computing 
derivatives.  Hence,  in  the  internal  program  documentation,  the  sensitivity 
(or  change)  in  LCC  with  respect  to  a given  parameter  xxx  is  referred  to  as 
'the  derivative  of  LCC  with  respect  to  parameter  xxx."  In  particular,  the 
sensitivity  of  LCC  with  respect  to  a given  parameter  xxx  is  assigned  to  the 
variable  TDxxx.  Also,  the  value  of  the  variable  FINC  equals  the  fractional 
increase  in  each  parameter  which  is  used  to  calculate  each  resulting  change 
in  LCC. 

For  example,  if  FINC-.l,  then  in  the  sensitivity  calculation  with 
respect  to  the  parameter  FPR  for  LRU  type  10,  the  value  of  TDFPR(IO)  equals 
the  approximate  change  in  LCC  that  would  result  from  a 10%  increase  in  the 
false-pull-rate  of  LRU  type  10. 

The  Sensitivity  Analysis  calculations  are  the  most  complex  part  of  the 
program.  The  following  comments  supplement  the  Sensitivity  Analysis 
description  that  is  found  in  Appendix  D of  the  User's  Manual. 

1.  Naming  Conventions  - Naming  conventions  for  the  Sensitivity 
Analysis  are  as  follows:  the  subroutines  that  calculate 
Sensitivity  with  respect  to  xxx  have  the  form  Dxxx  (such  as  DXUC, 
DFR,  DK,  ...,  DMCI);  the  variables  (usually  arrays)  which  hold 
the  actual  value  of  the  derivative  (i.e.,  sensitivity)  have  the 
form  TDxxx  (such  as  TDXUC,  TDFR(i) , TDK,  ...,  TDMCI(i));  the 
variable  which  tells  the  number  of  "most  significant"  derivatives 
of  each  type  that  the  user  wishes  to  be  printed  on  the  off-line 
printer  is  called  LDERV;  the  variables  which  tell  the  number  of 
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"most  significant"  derivatives  of  type  xxx  which  the  user  wishes 
r to  see  at  the  terminal  (or  on  the  off-line  output  if  it  exceeds 

LDERV)  have  the  form  LDxxx  (such  as  LDFR,  LDUC,  . ..,  LDMCI);  the 
variables  which  hold  the  sorted  index  numbers  (the  index  number  of 
the  most  significant  derivative  to  the  index  number  of  the  least 
significant  derivative)  have  the  form  IDxxx  (such  as  IDFR(i), 
IDUC(i),  . ..,  IDMCI(i));  and,  for  certain  parameters  (WOR(i), 
SRTS(i),  CRTS(i),  DRTS(i),  MCI(i)),  the  variables  which  hold  the 
change  in  the  parameter  to  which  the  projected  LCC  change 
corresponds  have  the  form  WF(i),  SFSRTS(i),  CFCRTS(i),  DFDRTS(i) , 
MCIC(i),  respectively. 

2.  Sensitivity  Analysis  Printout  - LDERV  and  the  LDxxx  variables 
control  the  printout  of  the  Sensitivity  Analysis  calculations  with 
respect  to  all  parameters  which  are  indexed  by  LRU  type  (only 
sensitivity  with  respect  to  K-factor  and  XUC-factor  are  not 
indexed  by  LRU  type).  These  variables  are  initialized  in 
subroutine  SNSSET  and  are  updated  by  user  inputs  through  NAMELIST 
/SENS/  in  subroutine  PRMPT2.  Sensitivity  output  at  the  terminal 
consists  of  global  sensitivity  with  respect  to  both  the  K-factor 
and  XUC-factor  plus  whatever  additional  sensitivity  calculations 
which  the  user  requests  through  NAMELIST  /SENS/.  The  additional 
output  depends  on  the  values  of  the  LDxxx  variables  (part  1 above 
describes  the  significance  of  the  LDxxx  variables).  Sensitivity 
output  on  the  off-line  printer  consists  of  global  sensitivity  with 
respect  to  the  XUC-factor  and  the  K-factor  plus  the  LDERV  "most 
significant”  derivatives  with  respect  to  each  of  the  other 
parameters  (unless  any  particular  LDxxx  values  exceed  LDERV,  in 
which  case  LDxxx  derivatives  would  be  printed  off-line  for  factor 
xxx) . 

3.  Skipping  Sensitivity  Analysis  Subroutines  - In  general,  if  no 
sensitivity  output  is  requested  for  a particular  sensitivity 
parameter  type,  then  the  corresponding  subroutine  is  not  called. 
Exceptions  are  subroutines  DXUC,  DK,  and  DFR.  Subroutines  DXUC 
and  DK  are  always  called  because  TDXUC  and  TDK  are  always  printed. 
Subroutine  DFR  is  always  called  because  TDFR(i)  is  used  to 
calculate  TDK. 

4.  Number  of  Sensitivity  Outputs  Per  Line  of  Output  - For  any 

' particular  LRU-indexed  parameter,  6 sensitivity  values  are  printed 

per  line  of  output  at  the  terminal;  12  values  per  line  appear  in 
the  off-line  printout. 

, 5.  Subroutine  CHCALC  - Subroutines  DWOR,  DSRTS,  DCRTS,  and  DDRTS  call 

subroutine  CHCALC  to  calculate  the  changes  in  LCC  with  respect  to 
the  parameters  WOR(i),  SRTS(i),  CRTS(i),  and  DRTS(i), 
respectively.  For  each  LRU  type,  the  calling  routine  assigns 
values  to  variables  CF,  DF,  SF,  CCF,  DCF,  and  SCF,  which  represent 
the  changes  in  the  internally  calculated  (in  subroutine  AUXIL1) 
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data  parameters  CRTS(i),  DRTS(i),  SRTS(i),  CCOND(i),  DCOND(i),  ajv 
COND(i),  respectively.  Subroutine  CHCALC  then  uses  these 
variables  as  parameters  to  calculate  CHLCC,  which  is  returned  to 
the  calling  routine  to  be  used  as  the  computed  change  in  LCC. 
Variables  CF,  DF,  SF,  CCF,  DCF,  SCF  and  CHLCC  are  passed  through 
common  block  CHLCC. 

6.  Subroutine  TDSORT  - For  those  subroutines  which  calculate 

sensitivity  indexed  by  LRU  type,  the  subroutine  (Dxxx)  first 
calculates  sensitivity  of  LCC  with  respect  to  factor  xxx  for  all 
LRU  types.  Then  the  subroutine  calls  subroutine  TDSORT,  which 
bubbles  up  to  the  top  of  array  IDxxx  the  index  numbers  of  the  LRU 
types  for  which  LCC  is  most  sensitive  for  factor  xxx.  To  save  on 
execution  time,  only  LLL  index  numbers  are  actually  bubbled  up  to 
the  top  of  array  IDxxx,  where  LLL«max(#  of  off-line  outputs  for 
factor  xxx,#  of  terminal  outputs  for  factor  xxx). 


4.11  Printouts  (ITAB1  to  ITAB5  and  0TAB1  to  0TAB5  and  OSENS). 

Each  subroutine  in  this  group  produces  a single  table  of  the  LCC  Model 
output  (see  Appendix  F of  the  User's  Manual  for  a sample  off-line  output 
listing).  Terminal  output  consists  only  of  Output  Table  1 (0TAB1)  and  the 
Sensitivity  Analysis  Table  (OSENS).  Off-line  output  consists  of  Input 
Tables  1 to  5 (ITAB1  to  ITAB5),  Output  Tables  1 to  5 (0TAB1  to  0TAB5),  and 
the  Sensitivity  Analysis  Table  (OSENS).  The  input  tables  print  the  data 
that  was  used  to  calculate  the  LCC.  The  output  tables  show  the  result  of 
the  LCC  Model's  calculations. 

Besides  these  tables,  certain  other  outputs  may  be  sent  to  either  the 
terminal  or  off-line  printer.  Input  error  messages  are  printed  at  the 
terminal  (always)  and  on  the  off-line  printer  (if  off-line  output  was 
chosen).  Input  error  messages  are  generated  by  the  read  subroutines  (READ1 
to  READ5)  and  by  subroutine  ERRCHK.  They  are  printed  before  the  input  and 
output  tables.  Maintenance  man-hour  constraint  error  messages  accompany 
the  LCC  output  whenever  the  constraints  are  not  met.  Maintenance  man-hour 
error  messages  are  generated  by  0TAB1. 


4.12  Debugging  Routines  (APRINT  and  DPRINT) 

Two  FORTRAN  debugging  subroutines  can  be  included  in  the  program  by 
adding  two  call  statements  to  the  program  (CALL  APRINT  and  CALL  DPRINT) 
after  the  calls  of  the  Sensitivity  Analysis  subroutines.  APRINT  prints  the 
values  of  all  auxiliary  variables  and  cost  elements.  DPRINT  prints  the 
values  of  all  Sensitivity  Analysis  variables. 
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A . 1 3 Index  Numbers 


The  following  comments  concern  index  numbers  used  with  the  five 
standard  data  input  files  (see  Section  4.5  above): 


1.  The  Unit  13  index  numbers  (Functional  Area  Inputs)  must  be 
consecutive  starting  with  1. 

2.  The  Unit  12,  14,  and  15  index  numbers  (Support  Equipment  Inputs, 
LRU  Equipment  Inputs,  and  LRU  Maintenance  Inputs)  must  be 
increasing,  although  gaps  are  allowed.  The  largest  index  number 
cannot  exceed  a pre-assigned  maximum  value  (150,  200,  and  200, 
respectively) . 

3.  The  Unit  14  file  (LRU  Equipment  Inputs)  and  the  Unit  15  file  (LRU 
Maintenance  Inputs)  must  have  identical  sequences  of  index 
numbers. 

4.  Calculations  by  LRU  and  Support  Equipment  type  have  loops  from  1 
to  the  largest  respective  index  number.  Missing  items  are  skipped 
due  to  zero  values  in  the  quantity  arrays  (QPA(i)  for  LRUs; 

NSEC(  ),  NSES(  ),  and  NSED(  ) for  Support  Equipment). 


4.14  Common  Blocks 


The  following  common  block  conventions  were  used  when  programming  the 
LCC  Model: 

1.  A single  common  block  holds  all  data  read  from  a particular  READx 
subroutine  (common  blocks  RD1  to  RD5  correspond  to  subroutines 
REAM  to  READ5). 

2.  A single  common  block  holds  all  of  the  auxiliary  variables  that 
were  calculated  in  a single  auxiliary  variables  subroutine  (common 
blocks  AUX1  to  AUX5  correspond  to  subroutines  AUXIL1  to  AUXIL5). 

3.  A single  common  block  holds  all  cost  element  summation  variables 
for  a single  cost  element  (common  blocks  Cl  to  CIO  correspond  to 
subroutines  C0ST1  to  COST10). 

4.  A single  common  block  holds  all  variables  having  to  do  with  a 
particular  Sensitivity  Analysis  subroutine  (common  blocks  TDXUC  to 
TDMCI  correspond  to  subroutines  DXUC  to  DMCI). 

5.  The  other  common  blocks  escape  convention:  CNTL  holds  various 
program-flow  parameters;  TITL  holds  the  identifying  title  of  a 
particular  LCC  pass;  ERROR  holds  the  variables  that  count  the 
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number  of  error  messages  generated;  INIT  holds  miscellaneous 
internally  set  variables  which  never  change  value;  SENS  holds 
Sensitivity  Analysis  control  parameters;  and  CHLCC  holds 
parameters  which  are  passed  to  and  from  subroutine  CHGALC. 


the 


The  dimensioning  of  the  elements  of  the  various  common  blocks  is  worth 
noting.  All  variables  which  are  indexed  by  LRU  are  dimensioned  to  200 
(common  blocks  which  contain  elements  which  are  dimensioned  by  LRU  include 
RD4,  RD5,  AUX1-5,  C2,  C3,  C4,  C9,  and  TDFR-TDMCI);  all  variables  which  are 
indexed  by  support  equipment  type  are  dimensioned  to  150  (common  blocks 
which  contain  arrays  that  are  dimensioned  by  support  equipment  type  include 
RD2) ; all  variables  which  are  indexed  by  functional  area  type  are 
dimensioned  up  to  10  (common  blocks  which  contain  arrays  Which  are 
dimensioned  by  functional  area  type  Include  RD3  and  NOSCOS).  Figure  7 
contains  a cross-reference  chart  showing  the  correspondence  between 
subroutines  and  common  blocks. 


SUBROUTINE 

COMMON  BLOCKS 

MAIN 

ALL  COMMON  BLOCKS 

SNSSET 

SENS 

PRMPT1 

CNTL.TITL 

PRMPT2 

CNTL.RDl ,RD2,RD3,RD4,RD5,SENS 

PRMPT3 

CNTL 

PRMPT4 

CNTL 

PRMPT5 

CNTL 

TITLE 

TITL 

INITAL 

INIT,RD1,RD2,RD4,RD5 

READ  1 

RD1 

READ  2 

CNTL , ERROR , IN IT , RD  2 

READ  3 

CNTL, ERROR, INIT.RD 2 

READ  4 

CNTL , ERROR , INIT , RD  4 

READ  5 

CNTL , ERROR , INIT , RD4 , RD5 

ITAB1 

RD1 

ITAB2 

RD2 

ITAB3 

RD3 

ITAB4 

RD4 

ITAB5 

INIT,RD4,RD5 

ERRCHK 

CNTL , ERROR , IN IT , RD I , RD 4 , RD 5 

AUXIL1 

RD4,RD5,AUX1 

AUXIL2 

RD1,RD4,RD5,AUX2 

AUXIL3 

RD 4 , RD 5 , AUX 1 , AUX2 , AUX3 

AUXIL4 

RD1,RD4,RD5,AUX1,AUX2,AUX4 

AUXIL5 

CNTL , INIT , RD 1 , RD4 , RD 5 , AUX2 , AUX4 , AUX5 

COST  1 

RD1.C1 

COST  2 

RD1,RD4,AUX2,AUX3,AUX5,C2 

COST  3 

RD 1 , RD 4 , AUX4 , AUX5 , C 3 

COST  4 

RD1 ,RD4,AUX1 ,AUX2,C4 

C0ST5 

RD1.C5 

COST6 

RD1 ,RD2 ,C6 

COST  7 

RD1.C7 

COST  8 

RD1.C8 

C0ST9 

RD1 ,RD4 , AUX1  ,C9 

COST  10 

RD1,RD3,C10 

NONCOS 

RD 1 , RD  3 , RD4 , RD5 , AUX 1 , AUX2 , AUX3 , AUX5 , NCOS 

DXUC 

RD1,SENS,C3,C4,TDXUC 

DFR 

CNTL , RD 1 , RD4 , RD 5 , SENS , AUX 1 , AUX2 , AUX3 , AUX4 , 
AUX5.TDFR 

DK 

RD4.TDFR.TDK 

DUC 

CNTL , RD 1 , RD  4 , S EN  S , AUX 1 , AUX2 , AUX4 , AUX5 , TDUC 

DWOR 

CNTL , RD4 , RD  5 , SEN  S , AUX 1 , CHLCC , TDWOR 

DFPR 

CNTL, RD1.RD4.RD5, SENS, AUX1 ,AUX2,AUX4,AUX5, 
TDFPR 

DCMH 

CNTL , RD 1 , RD4 , RD 5 , SEN S , AUX 1 , AUX2 , TDCMH 

DDMH 

CNTL , RD 1 , RD 4 , RD 5 , S EN S , AUX 1 , AUX2 , TDDMH 

DRM 

CNTL , RD 1 , RD  4 , SENS, AUX 1 , AUX2 , TDRM 

DSRTS 

CNTL , RD  4 , S EN  S , AUX 1 , CHLCC , TDSRT  S 

DCRTS 

CNTL , RD  4 , SEN  S , AUX 1 , CHLCC , TDCRT  S 

Figure  7:  Correspondence  Between  Common  Blocks  and  Subroutines 
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DDRTS  CNTL ,RD4 , SENS ,AUX1 .CHLCC , TDDRTS 

DMCI  CNTL , RD 1 , RD4 , SENS , AUX2 , AUX5 , TDHCI 

CHCALC  RD 1 , RD4 , RD5 , AUX2 , AUX4 , AUX5 , CHLCC 

TDSORT  none 

OTAB1  CNTL, RD1, NCOS, AUX3.C1 ,C2 ,C3 ,C4 ,C5 ,C6 ,C7 , 

C8,C9,C10 

OTAB2  RD4,C2,C3,C4,C9 

OTAB3  C2,C3,C4,C5,C6,C7,C8,C9,C10 

OTAB4  RD3, NCOS, CIO 

OTAB5  RD4.AUX5 

OSENS  CNTL, RD4.RD5, SENS, TDXUC.TDFR, TDK, TDUC,TDWOR, 

TDFPR ,TDCMH , TDDMH , TDRM , TDSRTS , TDCRTS , TDDRTS , 
TDMCI 


Figure  7:  Correspondence  Between  Common  Blocks  and  Subroutines 
(Concluded) 


4.15  Flow  Chart 

Figure  8 contains  a detailed  flow-chart  of  the  computer  program.  On 
the  left  of  the  figure  is  the  actual  flow  of  the  program  from  subroutine  to 
subroutine.  The  comments  on  the  right  side  of  the  figure  describe  the 
functions  of  the  various  subroutines. 
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SfISSET  initializes  sensitivity 
analysis  variables. 


One  pass  through  the  loop  calculates 
a single  ICC  estimate. 


If  ITER>  1 PRMPT1  asks  the  user 
whether  to  reread  the  five 
"standard"  data  files.  In  any 
case,  PRMPT1  asks  the  user  the 
destination  of  the  output  and 
whether  minimum  or  maximum 
prompting  is  to  be  used. 

ITER=-1  means  that  this  is  the  first 
pass  through  LCC  loop;  REREAM  means 
user  wishes  to  reread  five  "standard" 
data  files. 

INITAL  Initializes  certain  LCC  input 
variabl es. 


Each  subroutine  reads  a single  data 
file  and  checks  for  index  nunber 
errors. 


PRMPT2  asks  the  user  for  interactive 
inputs  via  NAMELIST  /GO/  and  NAMELIST 
/SENS/. 


Figure  8:  Flow-Chart  of  Computer  Program  (Page  1 of  3) 


29 
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SUBROUTINE 

ERRCHK 


SUBROUTINES 
AUX1L1  to 
AUX1L5 


m 

SUBROUTINES 
C0ST1  to 
C0ST10 

m 

SUBSEQUENT 

CALCULATION 

SUBROUTINES 


* 

SUBROUTINE 
PRMPT  3 


I 


Figure  8: 


< 
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ERRCHK  checks  the  inputs  for 
fatal  and  non-fatal  errors. 


GO  TO  388  ^ 


The  LCC  is  not  processed  if 
ERRCHK  finds  any  fatal  errors. 


These  subroutines  calculate  the 
auxiliary  variables. 


These  subroutines  calculate  the 
ten  cost  elements. 


Subroutine  NONCOS  calculates 
non-cost  variables  having  to  do 
with  maintenance  man-hours. 

The  other  subsequent  calculation 
subroutines  calculate  sensitivity 
with  respect  to  certain  parameters. 


PRMPT3  notifies  the  user  that  the 
LCC  has  been  completed  and  allows 
the  user  to  adjust  the  terminal 
to  a new  page. 


Flow-Chart  of  Computer  Program  (Page  2 of  3) 
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SUBROUTINES 
ITAB1  TO 
ITAB5 


SUBROUTINES 

wNO 



0TAB2  TO 

W 

0TAB5 

SUBROUTINE 

OSENS 


REDO-1?  ^N^_YES_ 


_^^  GO  TO  LOOP^ 


If  the  user  requested  off-line 
output,  print  Input  Tables  1 to 
5 on  the  off-line  printer. 


0TAB1  prints  the  LCC  summary 
output  table  at  the  terminal 
and/or  on  the  off-line  printer. 


If  the  user  requested  off-line 
output,  print  Output  Tables  2 
to  5 on  the  off-line  printer. 


If  the  user  requested  output  at 
the  terminal,  allow  the  user  to 
adjust  the  terminal  to  a new  page 
before  the  sensitivity  analysis 
output. 


OSENS  prints  the  results  of  the 
sensitivity  analysis  at  the 
terminal  and/or  on  the  off-line 
printer. 


PRMPT5  asks  the  user  whether 
another  run  is  desired. 


REDO-1  means  the  user  wants  another 
run. 


Figure  8:  Flow-Chart  of  Computer  Program  (Page  3 of  3) 
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APPENDIX  A:  GLOSSARY 


The  following  glossary  defines  all  consequential  FORTRAN  variables. 
The  name  of  the  variable  and  its  subscripts  (if  any)  appear  on  the  left. 
Below  and  to  the  right  of  the  variable  name  is  the  definition  of  the 
variable  and  a reference  to  the  common  block  in  which  it  resides. 


A 

number  of  different  types  of  Support  Equipment  (whether  common  or 
peculiar)  at  all  levels  [the  value  of  A is  implicitly  determined 
by  the  LCC  Model  from  the  number  of  records  in  the  SE  data  file]. 
Common  /RD1/. 

ADCM 

average  number  of  days  required  to  complete  an  emergency 
corrective  maintenance  trip  to  a radar  site,  from  the  time  of 
leaving  the  central  maintenance  facility  (CMF)  until  return  to  the 
CMF.  [Government  data  input]  (3  days).  Common  /RD1/. 

AD  PM 

average  number  of  days  required  to  complete  a preventive 
maintenance  trip  to  a site,  from  the  time  of  leaving  the  CMF  until 
return  to  the  CMF.  [Government  data  input].  (2  days)  Common 
/RD1/. 

B 

the  coefficient  used  in  evaluating  the  stock  sparing  function  F. 
[Government  data  input  ] (1.65).  Common  /RD1/. 

BCMH(i) 

average  manhours  at  the  site  to  perform  a shop  bench  check, 
screening  and  fault  verification  of  the  removed  LRU  prior  to 
initiating  repair  action  or  condemning  the  item.  [Contractor  data 
input].  Common  /RD5/. 

CAA 

available  working  time  per  CMF  maintenance  man  in  hours  per  year 
[Government  data  input  ] (1512  hoars /year ) . Common  /RD1/. 
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CADRE 


number  of  personnel  from  the  AAC  radar  squadron  who  are  designated 
to  perform  maintenance  training  over  the  lifetime  of  the  system. 
[Government  data  input]  (10).  Common  /RD1/. 


CAS(i) 


average  number  of  LRUs  of  type  1 in  the  central  maintenance 
facility  (CMF)  pipeline,  i.e.,  the  expected  number  of  demands  at 
the  CMF  on  supply  for  LRU  type  i over  the  average  CMF  repair 
pipeline  time.  (Auxiliary  variable).  Common  /AUX4/. 

CBCMH(i) 

average  manhours  at  the  CMF  to  perform  a shop  bench  check, 
screening  and  fault  verification  of  a removed  LRU  of  type  i. 
(This  time  is  assumed  to  be  the  same  for  a falsely  pulled  LRU  as 
for  a failed  LRU.)  [Contractor  data  input]  Common  /RD5/. 


CCF 

the  change  in  the  value  of  CCOND(i)  as  computed  in  subroutines 
DWOR,DSRTS,DCRTS,  and  DDRTS.  The  parameter  CCF  is  sent  to 
subroutine  CHCALC  where  the  resulting  change  in  LCC  is  computed. 

C ommon  / CHLCC / . 

CCLH(i) 

average  number  of  manhours  expended  by  CMF  personnel  in  corrective 
maintenance  performed  at  the  CMF  on  LRU  type  i per  year. 

(Auxiliary  variable)  Common  /AUX3/. 

CCMP 


average  number  of  CMF  personnel  required  for  an  emergency 
corrective  maintenance  trip  to  a radar  site.  [Contractor  data 
input]  Common  /RD1/. 


CCOND(i) 


fraction  of  failed  (and  removed)  LRUs  which  are  condemned  at  the 
CMF,  due  to  wear-out.  [Auxiliary  variable  ] Common  /AUX1/. 

CDR 

daily  labor  rate  for  CMF  personnel  on  a maintenance  trip  to  a 
radar  ste.  [Government  data  input]  ($160  per  day)  Common  /RD1/. 
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CDWH 

working  hours  per  day  credited  to  each  CMF  personnel  on  a 
maintenance  trip  to  a site.  [Government  data  input]  (8  hours) 
Common  /RD1/. 

CF 


the  change  in  the  value  of  CRTS(i)  as  computed  in  subroutines 
DWOR,DSRTS , DCRTS , and  DDRTS.  The  parameter  CF  is  sent  to 
subroutine  CHCALC  where  the  resulting  change  in  LCC  is  computed. 
Common  /CHLCC/. 


CFCRTS(i) 


change  in  CMF  repair  fraction  (CRTS(i))  for  LRU  i from  which  the 
resulting  change  in  LCC  (TDCRTS(i))  is  calculated.  Common 
/TDCRTS/. 


CHLCC 

the  Sensitivity  Analysis  variable  that  represents  the  change  in 
total  LCC  that  results  from  a fractional  change  in  any  of  the 
factors  SRTS(i),  CRTS(i),  DRTS(i),  or  WOR(i).  This  variable  is 
computed  internally  in  the  Sensitivity  Analysis  component  of  the 
LCC  Model  in  subroutine  CHCALC  and  is  passed  back  to  the  calling 
subroutine  (DWOR , DSRTS , DCRTS , or  DDRTS).  Common  /CHLCC/. 

CLH 

yearly  total  maintenance  manhours  expended  by  CMF  personnel 
[Internally  computed  variable]  Common  /RD1/. 

CLR 

hourly  labor  rate  at  the  CMF  for  radar  maintenance  personnel 
[Government  data  input]  ($13.97  per  hour)  Common  /RD1/. 

CMH(i) 

average  manhours  to  perform  corrective  maintenance  at  the  CMF  on  a 
failed  LRU  of  type  i,  Including  fault  isolation,  repair  and 
verification.  [Contractor  data  input)  Common  /RD5/. 


COC(  ) 

same  as  COS(  ),  except  refers  to  the  CMF;  not  applicable  if  NSEC( 
)-0.  [Contractor  data  input]  Common  /RD2/. 
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COD(  ) 


COND(i) 


CONF 


CONFLO 


COS(  ) 


CPMI 


CPMP 


CPWT 


same  as  COS(  ) except  refers  to@the  depot;  not  applicable  if  NSED ( 
)»0.  [Contractor  data  input]  Common  /RD2/. 


fraction  of  failed  (and  removed)  LRUs  of  type  i which  are 
condemned  at  the  site.  (Here  we  only  allow  either  COND(i)=0  or 
COND(i)=l,  depending  on  the  repair  level  RL(i).)  [Auxiliary 
variable]  Common  /AUX1/. 


confidence  factor  (the  probability  that  the  stock  of  a given  LRU 
type  will  last  from  one  resupply  trip  to  the  next).  [Government 
data  input]  (.98)  Common  /RD1/. 


default  value  of  CONF.  If  user  submits  a value  for  CONF  that  is 
less  than  CONFLO,  a warning  message  is  printed  and  CONF  gets 
assigned  the  value  of  CONFLO.  CONFLO  is  set  to  .84134  in 
subroutine  INITAL.  Common  /INIT/. 


annual  cost  to  operate  and  maintain  one  piece  of  Support 
of  type  at  a site,  expressed  as  a fraction  of  the  unit 
(SEC(  ));  not  applicable  if  NSEC(  )=0.  [Contractor  data 
Common  /RD2/ . 


Equipment 
cost 
input ] 


the  shortest  preventive  maintenance  interval  for  CMF  personnel 
trips  to  a radar  site  (in  hours).  [Contractor  data  input]  Common 
/RD1/ . 


average  number  of  CMF  personnel  required  on  a scheduled 

preventive  maintenance  trip  to  a radar  site.  [Contractor  data 
input]  Common  /RD1/. 


manpower  cost  per  unit  weight  (pound)  affected  by  enhancement  (or 
fixup),  based  upon  an  aggregate  to  include  both  hardware  ECPs  and 
the  physical  aspects  of  the  reprogramming  of  firmware. 

[Contractor  data  input]  Common  /RD1/. 
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CRC.T 


CMF  repair  cycle  time  (in  weeks)  for  an  LRU  from  removal  at  the 
site  of  the  failed  (or  falsely  pulled)  item  until  it  is  returned 
to  CMF  serviceable  stock.  [Government  data  input]  (1.43  weeks) 
Common  /RD1/. 


CRTS(i) 


fraction  of  failed  (and  removed)  LRUs  of  type  i which  are  repaired 
at  the  CMF.  [Auxiliary  variable]  Common  /AUX1/. 


CRTS! (i) 


the  fraction  of  failed  LRUs  of  type  i which  are  to  be  repaired  at 
the  CMF  under  repair  level  RL(i)*l.  [Contractor  data  input] 
Common  /RD5/. 


CRTS  2 (i) 


the  fraction  of  failed  LRUs  of  type  i which  are  to  be  repaired  at 
the  CMF  under  repair  level  RL(i)“2.  [Contractor  data  input] 
Common  /RD5/ . 

Cl 

total  cost  of  Cost  Element  1.  Common  / Cl/. 

C2 

total  cost  of  Cost  Element  2.  Common  /C2/. 


C2C 


part  of  Cost  Element  2 attributable  to  the  CMF.  Common  /C2/. 


C2D 

part  of  Cost  Element  2 attributable  to  the  depot.  Common  /C2/. 

C2L(i) 


part  of  Cost  Element  2 attributable  to  LRU  type  i.  Common  /C2f . 
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part  of  Cost  Element  2 attributable  to  the  radar  sites  • Common 
/C2/. 


total  cost  of  Cost  Element  3.  Common  /C3/. 


part  of  Cost  Element  3 attributable  to  the  CMF.  Common  /C3/. 


part  of  Cost  Element  3 attributable  to  the  depot.  Common  /C3/. 


C3L(i) 


C4L(i) 


part  of  Cost  Element  3 attributable  to  LRU  type  i.  Common  /C3/. 


part  of  Cost  Element  3 attributable  to  the  radar  sites.  Common 
/C3/ . 


total  cost  of  Cost  Element  4.  Common  /C4/. 


initial  part  of  Cost  Element  4.  Common  /C4/. 


part  of  Cost  Element  4 attributable  to  LRU  type  i.  Common  /C4/. 


recurring  part  of  Cost  Element  4.  Common  /C4/. 


total  cost  of  Cost  Element  5.  Common  /C5/. 


total  cost  of  Cost  Element  6.  Common  /C6/. 
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C6C 


C6D 


C6I 


C6R 


C6S 


C7 


C8 


C8C 


C8D 


C8I 


C8R 


C8S 


part  of  Cost  Element  6 attributable  to  the  CMF.  Common  / C6/. 

part  of  Cost  Element  6 attributable  to  the  depot.  Common  /C6/. 

initial  part  of  Cost  Element  6.  Common  /C6/. 

recurring  part  of  Cost  Element  6.  Common  /C6/. 

part  of  Cost  Element  6 attributable  t3  the  radar  sites.  Common 
/C6/ . 

total  cost  of  Cost  Element  7.  Common  /C7 /. 

total  cost  of  Cost  Element  8.  Common  /C8/. 

part  of  Cost  Element  8 attributable  to  the  CMF.  Common  /C8/. 

part  of  Cost  Element  8 attributable  to  the  depot.  Common  /C8/. 

initial  part  of  Cost  Element  8.  Common  /C8/. 

recurring  part  of  Cost  Element  8.  Common  /C8/. 

part  of  Cost  Element  8 attributable  to  the  radar  sites.  Common 
/C8/. 
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C9 


i 


total  cost  of  Cost  Element  9.  Common  /C9/. 


C9C 

C9D 

C9I 

C9L (i) 

C9R 

C9S 


part  of  Cost  Element  9 attributable  to  the  CMF.  Common  /C9/. 


part  of  Cost  Element  9 attributable  to  the  depot.  Common  /C9/. 


initial  part  of  Cost  Element  9.  Common  /C9/. 


part  of  Cost  Element  9 attributable  to  LRU  type  i.  Common  /C9 /. 


recurring  part  of  Cost  Element  9.  Common  /C9/. 


part  of  Cost  Element  9 attributable  to  the  the  radar  sites. 
Common  / C9/. 

CIO 

total  cost  of  Cost  Element  10.  Common  /CIO/. 

C10HW(j) 

hardware  part  of  Cost  Element  10  which  is  attributable  to 
functional  area  j.  Common  /CIO/. 

C10I 

Initial  part  of  Cost  Element  10.  Common  /CIO/. 

Cl  OR 

recurring  part  of  Cost  Element  10.  Common  /CIO/. 

C10SW(j) 

software  part  of  Cost  Element  10  which  is  attributable  to 
functional  area  j.  Common  /CIO/. 
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DAA 

available  working  time  per  depot  maintenance  man  in  hours  per 
year.  [Government  data  input  ] (1512  hours/year)  Common  /RD1/ 

DAS(i) 

average  number  of  LkUs  of  type  i in  the  depot  pipeline,  more 
precisely,  the  average  number  of  repairable  failures  of  LRU  type  1 
which  are  received  by  the  depot  over  its  average  repair  cycle  time 
(DRCT).  [Auxiliary  variable]  Common  /AUX4/. 


DBCMH(i) 


average  manhours  at  the  depot  to  perform  a shop  bench  check, 
screening  and  fault  verification  of  a failed  LRU  of  type  i. 
[Contractor  data  input]  Common  /RD5/ . 


DCF 

the  change  in  the  value  of  DCOND(i)  as  computer  in  subroutines 
DWOR,DSRTS ,DCRTS , and  DDRTS.  The  parameter  DCF  is  sent  to 
subroutine  CHCALC  where  the  resulting  change  in  LCC  is  computed. 
Common  /CHLCC/. 

DCLH(i) 


average  number  of  hours  expended  by  depot  personnel  in  corrective 
maintenance  on  LRU  type  i per  year.  [Auxiliary  variable]  Common 
/AUX3/ . 


DCOND(i) 


fraction  of  failed  (and  removed)  LRUs  of  type  i which  are 
condemned  at  the  depot,  due  to  wear-out.  [Auxiliary  variable] 
Common  /AUX1/. 


DF 


the  change  in  the  value  of  DRTS(i)  as  computed  in  subroutines 
DWOR,DSRTS ,DCRTS , and  DDRTS.  The  parameter  is  sent  to  subroutine 
CHCALC  where  the  resulting  change  in  LCC  is  computed.  Common 
/CHLCC/. 


DFDRTS(i) 


change  in  depot  repair  fraction  for  LRU  type  i from  which  the 
resulting  change  in  LCC  (TDDRTS(i))  is  calculated.  Common 
/TDDRTS/. 
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DLH 

average  yearly  number  of  manhours  expended  by  depot  personnel  In 
corrective  maintenance  (total  for  all  LRUs).  [Auxiliary  variable] 
Common  /AUX3/. 


hourly  labor  rate  at  the  depot.  [Government  data  input]  ($15.52 
per  hour)  Common  /RD1/ . 

DMH(i) 

average  manhours  to  perform  corrective  maintenance  at  the  depot  on 
a failed  LRU  of  type  i,  including  fault  isolation,  repair  and 
verification.  [Contractor  data  input  ] Common  /RD5/ . 

DRCT 

depot  repair  cycle  time,  i.e.,  the  time  from  when  the  CMF  sends  a 
repairable  LRU  to  the  depot  until  it  is  repaired  and  placed  in 
depot  serviceable  stock  (in  weeks).  [Government  data  input  ] (6 
weeks)  Common  /RD1/. 

DRTS(i) 

fraction  of  failed  (and  removed)  LRUs  of  type  i which  are  repaired 
at  the  depot.  [Auxiliary  variable]  Common  /AUX1/. 

DRTSl(i) 


the  fraction  of  failed  LRUs  of  type  i which  are  to  be  repaired  at 
the  depot  (Sacramento  ALC)  under  repair  level  RL(i)**l. 

[Contractor  data  input]  Common  /RD5/. 

DRTS2(i) 


the  fraction  of  failed  LRUs  of  type  i which  are  to  be  repaired  at 

the  depot  under  repair  level  RL(i)-2.  [Contractor  data  input] 

Common  /RD5/. 

DRTS3(i) 

the  fraction  of  failed  LRUs  of  type  i which  are  to  be  repaired  at 

the  depot  under  repair  level  RL(i)-3.  [Contractor  data  input  ] 

Common  /RD5/. 
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fraction  of  radar  system  incidents  (demands  for  maintenance 
action)  detected  automatically,  including  those  met  by  repair  ir 
place,  and  those  which  do  not  cause  system  to  become  inoperative 
(e.g.,  failure  of  a redundant  LRU).  [Contractor  data  input] 
Common  /RD1/. 


DSTK(i) 

the  average  (fractional)  increase  in  the  number  of  site  spares 
(STK(i))  of  LRU  type  i which  would  result  from  a unit  increase  in 
the  computed  value  of  SAS(i).  DSTK(i)  is  used  in  Sensitivity 
Analysis  calculations.  [Auxiliary  variable]  Common  /AUX5/. 

ECMT 

the  average  number  of  emergency  corrective  maintenance  trips  from 
the  CMF  to  the  radar  sites  per  year  (total  for  all  sites). 
[Auxiliary  variable]  Common  /AUX5/. 

ENYR(j) 

expected  number  of  enhancements  (Including  fixups)  per  year  which 
will  occur  in  Functional  Area  j throughout  the  life  of  the  system. 
[Government  data  input  ] (1  per  Functional  Area  per  year)  Common 

/RD3/. 

EXIT 

internal  flag  which  is  set  to  1 when  user  communicate  to  program 
via  the  prompting  routines  that  he  or  she  wishes  to  skip  to  the 
end  of  the  program.  Common  /CNTL/. 

FA 

number  of  different  functional  areas  in  each  the  radar. 

[Contractor  data  input  ] Common  /RD3/. 

FAC(  ) 

cost  of  new  facility  number  which  is  required  at  every  radar 
site  (see  Section  C.8).  [Contractor  data  input]  Common  /RD1/. 

FANAME (...) 


nomenclature  for  a given  functional  area  type.  Common  /RD3/. 
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res 

cost  for  power  at  radar  sites,  in  dollars  per  kilowatt  hour  per 
site.  [Government  data  input  ] ($0.0518/KW  hr /site)  Common 

/RD1/. 

F1MC 

the  fractional  Increase  in  those  LCC  factors  for  which  Sensitivity 
Analysis  is  provided.  Appears  in  all  Sensitivity  Analysis 
computations.  [Contractor  interactive  input]  Common  /SENS/. 

FPR(i) 

false  pull  rate  for  LRU  type  i,  i.e.,  that  multiple  of  failed  LRUs 
which  are  removed  but  haven't  failed  (in  most  part  this  factor  is 
to  allow  for  the  inability  of  fault  isolation  to  a single  LRU). 
(Thus  (#  of  removed  LRUs)-(l+FPR(i))(#  of  fai’ed  LRU).) 

[Contractor  data  input]  Common  /RD5/ . 

FR(i) 

the  failure  rate  (maintenance  incident  rate)  of  LRU  type  i. 
Sensitivity  Analysis  is  provided  for  this  factor.  This  factor  is 
computed  Internally  by  the  LCC  Model  in  units  of  failures  per 
million  hours,  i.e.,  FR(i)-(10E6)/MTBI(i) . Not  a program 
variable. 

FSD 

total  contract  cost  to  the  Government  for  Phase  II  (Full-Scale 
Development).  This  is  a lump-sum  term  in  the  Cost  Element  for 
Development  & Production.  [Contractor  data  input]  Common  /RD1/ . 

H 

average  transportation  cost  per  site  of  a maintenance  trip  from 
the  CMF  to  a site.  [Government  data  input]  ($1600  per  trip) 
Common  /RD1/. 

HWCF( j ) 

hardware  change  fraction  for  Functional  Area  j,  the  expected 
fraction  of  the  hardware  or  firmware  component  of  Functional  Area 
J which  is  to  be  changed  per  enhancement  (or  fixup)  required  in 
that  functional  area.  [Contractor  data  input])  Common  /RD3/. 
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TDCMH(i) 


holds  index  numbers  of  LRUs  sorted  with  respect  to  the  values  in 
array  TDCMH.  Common  /TDCMH/ . 

IDCRTS(i) 

holds  index  numbers  of  LRUs  sorted  with  respect  to  the  values  in 
array  TDCRTS.  Common  /TDCRTS/ . 

IDDMH(i) 

holds  index  numbers  of  LRUs  sorted  with  respect  to  the  values  in 
array  TDDMH.  Common  /TDDMH/. 

IDDRTS(i) 

holds  index  numbers  of  LRUs  sorted  with  respect  to  the  values  in 
array  TDDRTS.  Common  /TDDRTS/. 

IDFPR(i) 

holds  index  numbers  of  LRUs  sorted  with  respect  to  the  values  is 
array  TDFPR.  Common  /TDFPR/. 

IDFR(i) 

holds  index  numbers  of  LRUs  sorted  with  respect  to  the  values  in 
array  TDFR.  Common  /TDFR/. 

IDMCI(i) 

holds  index  numbers  of  LRUs  sorted  with  respect  to  the  values  in 
array  TDMCI.  Common  /TDMCI/. 

IDRM(i) 

holds  index  numbers  of  LRUs  sorted  with  respect  to  the  values  in 
array  TDRM.  Common  /TDRM/. 

IDSRTS(i) 

holds  index  numbers  of  LRUs  sorted  with  respect  to  the  values  in 
array  TDSRTS.  Common  /TDSRTS/. 

IDWOR(i) 

holds  index  numbers  of  LRUs  sorted  with  respect  to  the  values  in 
array  TDWOR.  Common  /TDWOR/ . 
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IDUC(i) 


holds  index  numbers  of  LRUs  sorted  with  respect  to  the  values  in 
array  TDUC.  Common  /TDUC/. 


IERRI 

number  of  index  number  errors  found  in  the  data  files.  Not  in  a 
common  block.  Local  to  MAIN  routine. 


I ERROR 

counter  for  the  number  of  fatal  errors  which  are  found  among  the 
values  in  the  user's  data.  Common  /ERROR/. 

IMC 

initial  management  cost  to  introduce  a new  line  item  of  supply 
into  the  Air  Force  inventory.  [Government  data  input]  ($40.91) 
Common  /RD 1 / . 

IMH(i) 

average  manhours  to  perform  in  place  repair  of  LRU  type  i, 
including  fault  isolation,  repair  and  verification.  [Contractor 
data  input]  Common  /RD5/. 

INO(i) 

array  holding  the  index  numbers  found  in  the  LRU  equipment  input 
file  (unit  14).  Common  /RD4/. 

IN015(i) 

array  holding  the  index  numbers  found  in  the  LRU  maintenance  input 
file  (unit  15).  Common  /RD5/. 

ITER 

counts  the  number  of  passes  (i.e.,  reruns)  through  the  LCC  loop. 
Common  /CNTL/ . 

I WARN 


counter  for  the  number  of  non-fatal  errors  which  are  found  in  the 
user's  data.  Common  /ERROR/. 
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K 

the  reliability  factor  which  converts  predicted  failure  rates 
(incident  rates)  to  operational  failure  rates  (incident  rates). 
(Government  data  input  ] (3)  Common  /RD1/. 

LTEMP 

set  to  1 if  off-line  printing  is  desired  and  LDERV  does  not  equal 
zero.  Not  in  a common  block.  Local  to  MAIN  routine. 

M 

number  of  radar  sites  in  the  SEEK  IGLOO  System.  [Government  data 
input]  (13)  Common  /RD1/. 

MAXFA 

maximum  number  of  functional  area  types  allowed.  Common  /INIT/. 

MAXLR 

maximum  number  of  LRU  types  allowed.  Common  /INIT/. 

MAXSE 

maximum  number  of  support  equipment  types  allowed.  Common  /INIT/. 

MAXPMT 

set  to  1 when  user  chooses  to  have  a complete  set  of  program- 
generated prompts.  Common  /CNTL/. 

MCF(i) 

"mission  critical  flag",  identifies  those  LRUs  which  given  rise  to 
an  emergency  corrective  maintenance  trip  by  CMF  personnel  on 
failure.  Specifically,  MCF(i)«l  if  LRU  type  i is  "mission 
critical",  but  is  neither  stocked  on  site  (i.e.,  STK(i)-O)  nor 
redundant  (i.e.,  QR(i)-O);  and  MCF(i)-0  otherwise.  (Auxiliary 
variable]  Common  /AUX5/ . 
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"mission  critical  indicator":  serves  to  identify  those  LRU  types 
which  are  "mission  critical"  (i.e.,  those  LRUs  whose  failure  will 
cause  system  failure).  In  addition,  for  mission  critical  LRUs, 
the  value  of  MCI(i)  will  indicate  one  of  two  possible  site  sparing 
strategies.  [Contractor  data  input  ].  More  precisely,  MCI(i) 
should  be  set  equal  to: 

0 if  LRU  type  i is  not  mission  critical 

1 if  LRU  type  i is  mission  critical,  but  no  special  site  sparing 

provision  made  for  it 

2 if  LRU  type  i is  mission  critical  and  provision  is  made  for  at 

least  one  spare  of  LRU  type  i to  be  stocked  at  each  radar  site. 

Common  /RD4/. 


MCIC(i) 

change  in  mission  critical  indicator  for  LRU  i from  which  the 
expected  change  in  LCC  (TDMCI(i))  is  calculated.  Note  that 
MClC(i)  can  assume  values  0,1,  and  -1  only.  Common  /TDMCI/. 

MCRS 

miscellaneous  consumption  rate  per  radar  site,  to  include  all 
consumables  except  fuel  in  $/year  (under  the  assumption  that  this 
consumption  rate  is  invariant  under  differing  system  designs); 
lamps,  fuses,  and  other  items  which  are  of  lower  indenture  level 
than  the  LRU  and  not  included  in  any  RM(i)  factor  must  be 
included  here.  [Contractor  data  input]  Common  /RD1/. 

MMH(j) 

average  manhours  required  to  perform  scheduled  preventive 
maintenance  by  site  personnel  in  Functional  Area  j.  [Contractor 
data  input]  Common  /RD3/. 

MTBI(i) 

mean  time  between  incidents  (maintenance  actions)  for  LRU  type  i, 
in  hours.  [Contractor  data  input]  Common  /RD4/ . 

N 

largest  index  number  which  is  found  in  LRU  equipment  inputs  file 
(unit  14).  Common  /RD4/ . 


N15 

largest  LRU  Index  number  found  on  LRU  maintenance  Inputs  file 
(unit  15  file).  Common  /RD5/. 

NCP 

number  of  CMF  radar  maintenance  personnel. 

[Contractor  data  input]  Common  /RD1/. 

NDP 

number  of  depot  personnel  required  for  maintenance  of  the  SEEK 
IGLOO  System.  [Contractor  data  input]  Common  /RD1/. 

NSEC ( ) 

number  of  pieces  of  Support  Equipment  of  type  required  at  the 
CMF  (whether  common  or  peculiar).  [Contractor  data  input]  Common 
/RD2/ . 

NSED ( ) 

number  of  pieces  of  peculiar  Support  Equipment  of  type  required 
at  the  depot.  [Contractor  data  input]  Common  /RD2/. 

NSES ( ) 

number  of  pieces  of  Support  Equipment  of  type  required  at  each 
site  (whether  common  or  peculiar).  [Contractor  data  input]  Common 
/RD2/ . 

NSP 

number  of  radar  maintenance  personnel  per  radar  site.  [Contractor 
data  input]  Common  /RD1/. 

OST 

average  order  and  shipping  time  (in  weeks)  from  the  depot  to  the 
CMF.  [Government  data  input]  (1.56  weeks)  Common  /RD1/. 

PA(i) 


number  of  new  T P"  coded  (i.e.,  procurable)  repairable  assemblies, 
subassemblies,  and  piece  parts  which  will  be  stocked  to  support 
repair  of  LRU  type  i.  [Contractor  data  input]  Common  /RD4/ . 
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PAMH(i) 


average  manhours  expended  on  a radar  for  Preparation  and  Access  to 
a failed  LRU  of  type  i.  [Contractor  data  input]  Common  /RD5/. 


PIUP 

number  of  operating  years  of  the  SEEK  IGLOO  Radar  System. 
[Government  data  input]  (20  years)  Common  /RD1/. 

PME 

Phase  III  CWBS,  level  2 item  "Prime  Mission  Equipment",  covering 
all  (12)  production  systems  (including  learning-curve  effects), 
and  excluding  level  3 items  "Software"  and  "Refurbishment".  This 
is  a lump-sum  term  in  the  Cost  Element  for  Development  & 
Production.  [Contractor  data  input]  Common  /RD1/. 

PMFA(j) 

annual  preventive  maintenance  man-hours  expended  at  each  radar 
site  within  Functional  Area  j.  Common  /NCOS/. 

PPRS 

consumption  rate  for  primary  power  (for  prime  mission  equipment) 
per  radar  site,  in  kilowatts.  [Contractor  data  input]  Common 
/RD1/. 

PRNT 

print  flag:  0 means  user  wants  terminal  (unit  6)  printing  only; 

1 means  user  wants  off-line  (unit  7)  printing  only;  2 means  user 
wants  both.  If  user  requests  neither  terminal  printing  nor 
offline  printing,  the  user  gets  terminal  output  anyway.  Common 
/CNTL/. 

PRODX 

sum  of  all  Phase  III  CWBS  level  2 items  excepting  "Prime  Mission 
Equipment,"  "Training,"  "Support  Equipment,"  and  "Initial  Spares 
and  Repair  Parts."  This  is  a lump-sum  term  in  the  Cost  Element 
for  Development  & Production.  [Contractor  data  input]  Common 
/RD1/. 

QPA(i) 

number  of  LRUs  of  type  i in  each  radar.  [Contractor  data  input] 
Common  /RD4/. 
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QR(i) 


number  of  LRUs  of  type  i which  are  redundant  in  each  radar,  i.e., 
a minimum  of  (QPA(i)  - QR(i))  are  sufficient  to  maintain 
operational  status  of  the  system.  [Contractor  data  inpit]  Common 
/RD4/. 


REDO 

set  to  1 after  LCC  calculation  if  user  chooses  to  have  yet  another 
LCC  calculation.  Common  /CNTL/. 

REFURB 

Phase  III  CWBS  level  3 item  "Refurbishment"  covering  refurbishment 
of  2 preproduction  options.  This  is  a lump-sum  term  in  the  Cost 
Element  for  Development  & Production.  [Contractor  data  input] 
Common  /RD 1 / . 

REREAD 

(only  applicable  if  on  second  or  subsequent  pass  of  the  LCC)  set 
to  1 when  user  chooses  to  reread  the  five  "standard"  data  files. 
Common  /CNTL/. 

RIP(i) 

fraction  of  failures  (maintenance  incidents)  of  LRU  type  i which 
are  met  by  repair  in  place  on  the  radar.  [Contractor  data  input] 
Common  /RD5/. 

RL(i) 

repair  level  for  LRU  type  i,  equals  0 if  LRU  is  to  be  condemned  on 
failure  (at  the  site),  equals  1 if  LRU  repair  is  to  be  attempted 
(i.e.,  lowest  level  repair)  at  the  site,  equals  2 if  LRU  repair  is 
to  be  first  attempted  at  the  CMF  and  equals  3 if  LRU  type  i is  to 
be  repaired  only  at  the  depot  level.  [Contractor  data  input] 

Common  /RD5/. 

RM(i) 


repair  materials  factor  for  LRU  type  i,  the  fraction  of  UC(i), 
unit  cost  that  is  consumed  (in  lower  indenture  level  components  of 
the  LRU)  in  the  repair  of  LRU  type  i.  [Contractor  data  input] 
Common  /RD4/. 
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RMC 

recurring  annual  cost  to  maintain  an  item  of  supply  in  the  depot 
inventory  system.  [Government  data  input]  ($104.20  per  year) 
Common  /RD1/. 

RHH(i) 

average  manhours  to  fault  isolate,  remove  and  replace  a faulty  (or 
falsely  pulled)  LRU  of  type  i and  verify  restoration  of  the  system 
to  operational  status.  [Contractor  data  input]  Common  /RD5/. 

SA 

annual  cost  to  maintain  a line  item  in  the  site  or  CMF  inventory 
system.  [Government  data  input]  ($20.20)  Common  /RD 1 / . 

SAA 

available  work  time  per  site  radar  maintenance  man  in  hours  per 
year.  [Government  data  input]  (1512  hours  per  year)  Common 
/RD1/ . 

SAS(i) 

average  number  of  failed  and  falsely  pulled  LRUs  of  type  i which 
have  accumulated  at  a site  by  the  end  of  an  order  and  shipping 
interval  (SOSI).  [Auxiliary  variable]  Common  /AUX4/. 

SCF 

the  change  in  the  value  of  COND(i)  as  computed  in  subroutines 
DWOR,DSRTS ,DCRTS , and  DDRTS.  The  parameter  is  sent  to  subroutine 
CHCALC  where  the  resulting  change  in  LCC  in  computed.  Common 
/CHLCC/ . 

SEC(  ) 

unit  cost  of  a piece  of  Support  Equipment  of  type  . [Contractor 
data  input]  Common  /RD2/. 

SENAME( . , . ) 

nomenclature  for  a given  support  equipment  type.  Common  /RD2/. 


I 
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SF 

| 

the  change  in  the  value  of  SRTS(i)  as  computed  in  subroutines 
DWOR,DSRTS ,DCRTS , and  DDRTS.  The  parameter  is  sent  to  subroutine 
CHCALC  where  the  resulting  change  in  LCC  is  computed.  Common 
/CHLCC/. 

SFSRTS(i) 


l 

I 


i 

1 

j 


change  in  site  repair  fraction  for  LRU  i from  which  the  expected 
change  in  LCC  (TDSRTS(i))  is  calculated. 


SlZE(j) 


size  of  the  software  component  of  Functional  Area  j,  including  all 
programs  residing  in  firmware,  in  number  of  object  instructions 
(or  the  equivalent,  for  higher  order  languages).  [Contractor  data 
input]  Common  /RD3/. 

SMH(i) 

average  manhours  to  perform  site-level  corrective  maintenance  of  a 
removed  LRU  of  type  i,  including  fault  isolation,  repair  and 
verification.  [Contractor  data  input]  Common  /RD5/. 

SMI(j) 

average  scheduled  maintenance  interval  (in  hours)  for  preventive 
maintenance  of  Functional  Area  j by  site  maintenance  personnel. 
[Contractor  data  input]  Common  /RD3/. 

SMMH 

yearly  manhours  expended  by  site  radar  maintenance  personnel  in 
performing  on-radar  maintenance.  [Internally  computed  variable  in 
Section  C.3.2]  Common  /NCOS/. 

SMTBI 

overall  mean  time  between  incidents  (maintenance  actions)  for  one 
radar,  in  hours;  must  satisfy 


to  reflect  the  fact  that  a radar  is  more  than  the  serial  array  of 
its  component  LRUs.  [Contractor  data  input]  Common  /RD1/ . 

SNRTS(i) 

fraction  of  failed  (and  removed)  LRUs  of  type  i which  are  sent  to 
the  CMF  (or  depot)  for  possible  repair.  [Auxiliary  variable] 
Common  /RD 1 / . 
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SOSI 

I 

order  and  shipping  interval  between  each  site  and  the  CMF  in  weeks 
(i.e.,  number  of  weeks  between  resupply  trips).  [Government  data 
input]  (1  week)  Common  /RD1/. 

SPMH 

yearly  manhours  expended  by  site  radar  maintenance  personnel  in 
performing  corrective  maintenance  on  LRUs  off  the  radar  (i.e.,  not 
including  on-radar  manhours).  [Internally  computed  variable  in 
Section  C.3.2]  Common  /NCOS/. 

SPRS 

consumption  rate  for  secondary  power  (heating  and  air  conditioning 
necessary  for  PME)  per  radar  site,  in  kilowatts.  [Contractor  data 
input]  Common  /RD1/. 

SRCT 

average  site  repair  cycle  time  in  weeks.  (The  elapsed  time  from 
removal  of  a failed  LRU  until  it  is  repaired  at  the  site  and 
placed  in  site  serviceable  stock.)  [Government  data  input]  (.43 
weeks ) 

SRTS(i) 

fraction  of  failed  (and  removed)  LRUs  of  type  i which  are  repaired 
at  the  site.  [Auxiliary  variable]  Common  /AUX1/. 

SRTSl(i) 

the  fraction  of  failed  LRUs  of  type  i which  are  to  be  repaired  at 
the  radar  site  under  repair  level  RL(i)»l.  [Contractor  data 
input]  Common  /RD5/. 

STK(i) 

f 

the  actual  number  of  off-equipment  spares  of  LRU  type  i per  site 
as  determined  from  STKl(i)  with  a possible  adjustment  for  the 
mission  critical  indicator  MCI(i)  (i.e.,  STK(i)-Max  [STKl(i), 

MCI(i)  - 1]).  [Auxiliary  variable]  Common  /AUX5/. 

| 

J 


'••‘V 


STKl(i) 


the  tentative  number  of  off-equipment  spares  of  LRU  type  i per 
site,  including  safety  stock,  as  determined  by  the  site  stocking 
criterion  and  the  confidence  level  CONF,  but  before  any  adjustment 
is  made  for  the  mission  critical  indicator  MCI(i).  [Auxiliary 
variable]  Common  /AUX5/. 


STMH 

sum  of  SMMU  and  SPMH.  Common  /NCOS/. 

SU 

Phase  III  CWBS  level  3 item  ''Software"  covering  12  production 
syustems.  This  is  a lump-sum  term  in  the  Cost  Element  for 
Development  & Production.  [Contractor  data  input  ] Common  /RD1/. 

SWCF(j) 

software  change  fraction  for  Functional  Area  j,  the  expected 
fraction  of  the  software  component  of  Functional  Area  j (including 
programs  residing  in  firmware)  which  is  to  be  changed  per 
enhancement  (or  fixup)  required  in  that  functional  area. 
[Contractor  data  input]  Common  /RD3/. 

SWF  AC 

one-time  cost  of  a software  maintenance  facility,  if  one  is 
intended  to  be  used,  exclusive  of  the  fixed  and  variable  costs 
SWFIX(j);  and  SWVAR(j).  [Contractor  data  input]  Common  /RD1/. 

SWFIX(j) 


the  fixed  component  of  manpower  cost  per  software  enhancement 
(SWCOST(j))  in  Functional  Area  j when  described  as  a function  of 
the  number  of  object  instructions  programmed  (or  reprogrammed)  in 
thousands  of  dollars.  [Contractor  data  input]  Common  / RD3/. 


SWVAR(j) 

the  coefficient  of  the  variable  component  of  manpower  cost  per 
software  enhancement  (SWCOST(j))  in  Functional  Area  j when 
described  as  a function  of  the  number  of  object  instructions 
programmed  (or  reprogrammed)  in  dollars.  [Contractor  data  input] 
Common  /RD3/. 
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TC 

average  cost  per  student  per  week  to  offer  site,  CMF,  and  depot 
maintenance  training  (not  including  student  salaries). 
[Contractor  data  input]  Common  /RD1/. 

TCCAD 


cost  per  student  per  week  to  offer  "CADRE"  training  (not  including 
student  salaries).  [Contractor  data  input]  Common  /RD1/. 


TDCMH(i) 


value  of  sensitivity  of  LCC  with  respect  to  CMF  maintenance  hours 
for  LRU  type  i.  Common  /TDCMH/. 

TDCRTS(i) 

value  of  sensitivity  of  LCC  with  respect  to  CMF  repair  fraction 
for  LRU  type  i.  Common  /TDCRTS/. 

TDDMH(i) 

value  of  sensitivity  of  LCC  with  respect  to  depot  maintenance 
hours  for  LRU  type  i.  Common  /TDDMH/. 


TDDRTS(i) 


value  of  sensitivity  of  LCC  with  respect  to  depot  repair  fraction 
for  LRU  type  i.  Common  /TDDRTS/. 


TDFPR(i) 


value  of  sensitivity  of  LCC  with  respect  to  the  false  pull  rate 
for  LRU  type  i.  Common  /TDFPR/. 


TDFR(i) 

value  of  sensitivity  of  LCC  with  respect  to  failure  rate  for  LRU 
type  i.  Common  /TDFR/. 

TDK 


value  of  global  sensitivity  of  LCC  with  respect  to  the  K factor. 
Common  /TDK/ . 


TDMCI(i) 


value  of  sensitivity  of  LCC  with  respect  to  mission  critical 
indicator  for  LRU  type  i.  Common  /TDMCI/. 
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TDRM(i) 


value  of  sensitivity  of  LCC  with  respect  to  the  repair  materials 
factor  for  LRU  type  i.  Common  /TDRM/. 

TDSRTS(i) 

value  of  sensitivity  of  LCC  with  respect  to  site  repair  fraction 
for  LRU  type  i.  Common  /TDSRTS/. 

TDUC(i) 

value  of  sensitivity  of  LCC  with  respect  to  unit  cost  for  LRU  type 
i.  Common  /TDUC/. 

TDWOR(i) 

value  of  sensitivity  of  LCC  with  respect  to  wear  out  rate  for  LRU 
type  i.  Common  /TDWOR/. 


TDXUC 

value  of  global  sensitivity  of  LCC  with  respect  to  XUC  factor. 
Common  /TDXUC/. 


cost  of  peculiar  training  equipment  required  by  the  Government; 
not  to  include  any  contractor-incurred  costs  already  accounted  for 
in  development  costs  within  the  Cost  Element  for  Development  & 
Production.  [Contractor  data  input]  Common  /RD1/. 

TITL( . ) 

array  that  holds  the  (up  to)  27  character  title  for  a particular 
LCC  calculation.  Common  /TITL/. 


average  turnover  rate  for  site,  CMF,  and  depot  maintenance 
personnel.  [Government  data  input]  (1.0)  Common  /RD1/. 


average  number  of  weeks  training  required  for  site,  CMF,  and  depot 
maintenance  personnel.  [Contractor  data  input]  Common  /RD1/, 
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TWCAD  I 

number  of  weeks  required  for  the  initial  training  of  'CADRE"  ] 

personnel.  [Contractor  data  input]  Common  /RD1/. 

UC(i) 

unit  cost  to  the  Government  of  LRU  type  i,  final  production  item 
on  the  cumulative  average  learning  curve,  as  used  to  calculate  the 
value  of  PME  in  the  Cost  Element  for  Development  & Production. 

(Note:  Unit  production  cost,  G&A,  and  profit  are  to  be  included.) 

[Contractor  data  input]  Common  /RD4/ . 

VAL  \ 

total  contract  cost  to  the  Government  for  Phase  I (Design 
Validation).  This  is  a lump-sum  term  in  the  Cost  Element  for 

Development  & Production.  [Contractor  data  input]  Common  /RD1/.  1 

WEIGHT ( j ) 

weight  of  all  hardware  and  firmware  in  Functional  Area  j,  in 
pounds.  [Contractor  data  input]  Common  /RD3/. 

WFR(i) 

average  number  of  failed  (and  removed)  LRUs  of  type  i per  week 
(total  for  all  sites).  [Auxiliary  variable]  Common  /AUX2/. 

WOR(i) 

the  wear-out  rate  of  a normally  repairable  LRU  of  type  i.  The 
value  of  WOR(i)  is  computed  internally  by  the  LCC  Model  where 
WOR(i)  equals  either  WORl(i),  W0R2(i),  or  W0R3(i),  depending  on 
the  value  of  the  repair  level  RL(i).  Sensitivity  Analysis  is 
performed  by  the  LCC  Model  on  WOR(i).  Not  an  actual  program 
variable. 

WORl(i) 

the  wear-out  rate  of  a (normally  repairable)  LRU  of  type  i under 
repair  level  RL(i)«l.  [Contractor  data  input]  Common  /RD5/. 

W0R2 ( i ) 

the  wear-out  rate  of  a (normally  repairable)  LRU  of  type  i under 
repair  level  RL(i)«2.  [Contractor  data  input]  Common  /RD5/. 


57 


W0R3(i) 


the  wear-out  rate  of  a (normally  repairable)  LRU  of  type  i under 
repair  level  RL(i)=*3.  [Contractor  data  input]  Common  /RD5/. 


WR(i) 

the  fraction  of  failed  LRUs  of  type  i which  are  discarded,  either 
through  a "discard-on-failure"  decision  (i.e.,  COND(i)=l)  or 
through  wear-out  of  normally-repairable  LRUs.  [Auxiliary 
variable]  Common  /AUX1/. 

XUC 

dummy  cost  adjustment  factor.  XUC  is  provided  in  the  LCC  Model  to 
facilitate  LCC  tradeoffs  involving  any  factors  (such  as  the  use  of 
high-reliability  parts  throughout  the  design)  which  can  be  shown 
to  multiply  baseline  costs  of  all  LRU's  and  PME  by  a single 
constant.  The  value  of  XUC  must  be  set  at  unity  (1.0)  in  any  runs 
of  the  model  whose  outputs  correspond  to  proposed  or  contractual 
baseline  costs.  [Government  data  input]  (1.0)  Common  /RDJ/. 

YFR(i) 

average  number  of  failed  (and  removed)  LRUs  of  type  i per  year 
(total  for  all  radar  sites).  [Auxiliary  variable]  Common  /AUX2/. 

YOH 

yearly  operating  hours  of  the  radar  system.  [Government  data 
input]  (8766  hours  per  year)  Common  /RD1/. 

YSCAD 

yearly  salary  for  "CADRE"  personnel.  [Government  data  input] 
($13400)  Common  /RD1/. 

YSLR 

yearly  labor  rate  for  site  radar  maintenance  men.  [Government 
data  input]  ($52000  per  man  per  year)  Common  /RD1/. 

Z 


the  number  of  standard  deviations  which  corresponds  to  the  CONF 
value,  i.e.,  the  value  Z is  determined  so  that  the  area  under  the 
standard  normal  curve  to  the  left  of  the  value  Z equals  CONF. 
[Auxiliary  variable]  Common  /AUX5/. 
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APPENDIX  B:  PROGRAM  LISTING 


c** 

W • 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c** 

c 

c** 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c** 


SEEK  IGLOO  LIFE  CYCLE  COST  MODEL 
THIS  PROGRAM  IS  DESIGNED  TO  RM N REPETITIVE  LIFE  CYCLE  COST 
CALCULATIONS  IN  AN  INTERACTIVE  ENVIRONMENT.  THERE  APE  SIX  INPUT 
DATA  SETS: 

UNIT  5 - RECEIVES  INPUTS  TYPED  BY  THE  USER  AT  THE  TERMINAL. 
UNIT  11  - MISCELLANEOUS  INPUTS  (MAINLY  SCALARS). 

UNIT  12  - INPUTS  BY  SUPPORT  E3UIPHENT  TYPE. 

UNIT  13  - INPUTS  BY  FUNCTIONAL  AREA. 

UNIT  14  - INPUTS  BY  LRU  TYPE  (LRU  FILE  1)  . 

UNIT  15  - INPUTS  BY  LRU  TYPE  (LRU  FILE  2) . 

THO  FILES  RECEIVE  THE  OUTPUT: 

UNIT  5 - OUTPUT  THAT  GOES  TO  THE  TERMINAL. 

UNIT  7 - OUTPUT  THAT  GOES  TO  THE  OFF-LINE  PRINTER. 


COMMON  BLOCK  ORGANI7AI 

IN  GENERAL,  FOR  EVERY  SUBROUTINE  THERE  It  COMMON  BLOCK  THAT 
CONTAINS  ALL  OF  THE  VARIABLES  THAT  FIRST  RECEIVED  VALDES  IN  THAT 
SUBROUTINE.  HENCE,  ALL  VARIABLES  THA~  ARE  READ  FROM  THE  nN IT  11 
FILE  IN  SUBROUTINE  READ1  WILL  BE  IN  COMMON  /RD1  /;  ALL  VARIABLES 
CALCULATED  IN  SUBROUTINE  AUXIL1  WILL  BE  IN  COMMON  /AUX 1/;  ALL 
VARIABLES  CALCULATED  IN  SUBROUTINE  COST1  WILL  BE  IN  COMMON  /Cl/; 

ALL  VARIABLES  CALCULATED  IN  SUBROUTINE  DFR  WILL  BE  IN  COMHON/TDPR/. 


COMMON  /CNTL/  EX  IT, ITER , M A XPMT ,9 RNT , REDO, REBE AD 
INTEGER  EXIT, PRNT, REDO, REREAD 

COMMON  /T  ITL  / TITL  (29) 

COMMON  /ERROR/  IEPROR,IWARN 

COMMON  /IN  IT/  CONFLO,MAXPA,HAXLR,MAXSt' 

COMMON  /RD1/  ADCM.ADPM ,B,C A A, CADRE, CCMP.CDR,  CD WH.CLR ,CONF,CPMI, 

♦ CPMP.CPWT  ,CRCT,DAA,  DLR,  DRCT,  DS, 

♦ FAC (1C) ,FCS,FSD,H,IMC,K,M,NCRS,HXRRS, 

♦ NCP,  NDP,  NSP,OST,PIUP,  PME,  PPRS,  PR  ODX  , REF  Uii  B,  RMC, 

♦ SA,  SAA,SMTBI,SOST,5PR3,SPCT,  SW.SWFAC, 

♦ -C, TCCAD,TF,TR,TW,-WCAD,VAL, XUC , YOH , YSC AD , YS LR 
IN-EGER  CADRE 

RIAL  IMC,K,MCRS,NXHPS 

COMMON  /RD2/  A,  CO C ( 1 sr ) , COD  ( 150)  , CO S ( 1 50)  , I NOSE  ( 1 5C)  , NSEC  ( 1 50l  , 

♦ NSED  (15")  ,NSFS  (15  5)  , SEC  (ISO)  , S EN  AM  E ( 1 5 C , 2 » ) 

RIAL  NSEC,  NSEC, NSES 

INTPGER  A 

COMMON  /RDV  FNYR(IC)  , FA  , F A NAM  E ( 1 r , 2 4)  .UUCP  (1C)  ,INOEA(10)  ,MMH(10) 

♦ SIZE  (IT)  , SMI  (10)  ,SWCP(10)  ,SWFIX  (1C),SWVAR  (’3), 

♦ WEIGH’’’  (1") 

IN-EGER  FA 

RIAL  MMH 

COMMON  /RD4/  I NO  (2CC  ) , LPN  A ME  (203 , 2 ’4)  , L PPAP7  <2C  r , 1 2) , MC I (200)  , 

♦ MTBI  (20  0)  ,N,PA  (200)  ,OPA  (JO")  ,QF  (200)  ,RH  (230)  , 

♦ UC(2CO) 

IN-FGEP  0PA.QR 

PEAL  1TBI 

COMMON  /RD5/  9C”H  (2C',|  ,CBC«H  (20C)  ,CMH  (2C0)  .CRTS1  (2CC)  ,CRT3  2 (2  00)  , 


*00000010 
*0 0000020 
*00000010 
*00000040 
*00000050 
•00000060 
•00000070 
*00000030 
*00000090 
*00000100 
•00000110 
*00000120 
*00000130 
*00000140 
*00000150 
00000 1 60 
*00000170 
*00000180 
*00000190 
*00000200 
*00000210 
*00000220 
*00000230 
*00000240 
*00000250 
*00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
0C0C0410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
,00000510 
00000520 
00000530 
"0000540 
00000550 
0O000560 
00000570 
00000580 
00000590 
0C000600 
00000610 
OC000620 
00000630 
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c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


♦ DBCHH  ( 200)  , DHH  ( 20  0)  , D8TS1  (200)  ,DRTS2  (200)  , 

♦ DRTS3  (200)  ,PPR  (200)  , IHH  (200)  , 111015(20 C)  ,N  15, 

♦ PAHH(200)  .PIP  (200)  ,RL  (2  00)  ,RMH  (2  00)  ,SHH  (2  0C)  ,SRTS1  (2  00) 

♦ BOP1  (2C0)  ,BOR2  (200)  ,BOR3  (200) 

RFAL  IHH 

IM-EGER  RL 

COMMON  /SENS/  PI  NC.LDCHH,  LDCRTS,  LDDHH,  t DDRTS  , L DERT  ,LDFPR  , LOPS, 

♦ LDHCI,LDRH,LDSRTS,LDBOR,LDtJC 

COMMON  /AUXl/  CCOND  (200)  ,COND(200)  .CRTS  (2C0)  , DCOND  (20C)  , 

♦ DPTS  (200)  , SNRTS  (200)  ,SRTS(2C0|  ,BR(200) 

COMMON  /AUX2/  T PR  (200). BPR  (200) 

COMMON  /AOX3/  CCLH(200)  ,DCLH  (200)  ,DLH 
COMMON  /A0X4/  CAS  (200 ) , DA S (200  ) , SAS  ( 20 0) 

COMMON  /AUX5/  DSTN  (200)  ,ECHT,MCF  (200)  ,STK  (200)  , STK  1 (200)  ,Z 
INTEGER  STK, STK  1 

COMMON  /Cl/  Cl 

COMMON  /C2/  C2, C2C, C2D, C2L  ( 2 00)  ,C2S 
COMMON  /C3/  C3,C3C,C3D,C3L (200) ,C3S 
COMMON  /C4/  C4.C4I.C4L  (200)  ,C4R 
COMMON  /C5/  C5 

COMMON  /C6/  C6,C6C, C6D,C6I,C6R,C6S 
COMMON  /C7/  Cl 

COMMON  /C8 / C8.CRC, C8D,C8I,C8R ,C8S 

CCMMON  /C9/  C9  , C9C,  C9D,  C9I,  C 9L  (200)  ,C9R,C9S 

COMMON  /CIO  / C10,C10HH(10)  , C 101  , C 1 0R  ,C  1 OS  B (1  0) 

COMMON  /NCOS/  CL  H , P H F A ( 1 0 ) , S MM H , S PM H , F T MH 

COMMON  /7DX0C/  TDX'JC 

CCMMON  /TDPR/  IOPP  (200)  , TDPR  (203) 

COMMON  /TDK/  TDK 

CCMMON  /TDUC/  IDOC(20")  ,TDUC  (20?) 

COMMON  /TDBOR/  IDBOP  (20E)  .TDBDR  (233)  ,BP  (2001 
CCMMON  /TDFPR/  I D FPP  (200  ) , TDPP  R (20  3 ) 

COMMON  /TDCMH/  IOCMH(?,lC),  TDCM  H (203) 

COMMON  /TDDMH/  I DDM  H (200  ) , TDDMH  (203  ) 

COMMON  /TORN/  IDR  H (200  ) , TDRM  (20?  ) 

COMMON  /TDSRTS/  I DS RTS  ( 200)  , SPSR  TS  (200 ) , TDSRTS  (200 ) 


00000649 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
000007  10 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
000008  30 
00000840 
00000850 
00000860 
00000870 
00000880 
0009C890 
00000900 
00000913 
0O0009  20 
00000930 
00000940 
00000950 
00000960 
03000970 
00000980 
00000990 
0000  1000 
00031010 
00001020 
000C1030 
0030 1040 
0000 10  50 
00001060 
0300  1070 
00001080 
30001090 
00001 10C 
000'  1110 
00031120 
030011 30 
03001140 
0 00  1 1 1 53 
020" 1 163 
O'OO  1170 
COO'11 93 
033'  1 1 >3 
00031200 
O'CO  1213 
0 0 0 " 1 2 2 3 
0032 1233 
C 30  01240 
'37' 125’ 
0"  ' 1 263 
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00001270 

COMMON  /TDCRTS/  CFCRTS  (200)  .IDCRTS  ( 2 PC)  , TDCRTS  (200  00001280 

00001290 

COMMON  /TDDRTS/  DFDRTS  (200 ) , IDDR  TS  ( 200 ) , TODR  T S ( 20")  ''00C1300 

00001310 

CCM  ION  /T  DM  Cl/  IDMCI  (20C)  ,MCIC  (200)  .TPMCI  (200)  00001320 


C 00001330 

COMMON  /CHLCC/  CC  F,  CF,  CHLCC,  DC  P,  DF , SCF  , SF  00001  340 

C 00001350 

C 00001360 

1 PORMAT  (1X/49H  PROGRAM  HILL  TERMINATE  AFTER  NAMELIST  INPUT?  DUE,  00001370 

♦ 30H  TO  ERRORS  IN  THE  INPUT  FILES.)  000*1380 

2 FOR? AT  (1X/10H  TOTAL  OF  ,I3,24H  INPUT  HARNIN3  MESSAGES . ) 00001390 

3 POPMAT  (1 X/1 X,26H  PROGR  AN  TERMINATES  DUE  TO  ,I3,14H  INPUT  ERRORS.)  00001400 

C 00001410 

C 00001420 

C*** ****************************************************** **************0000 14 30 
C*  SNSSET  *00001440 

C*  INITIALIZE  SENSITIVITY  ANALYSIS  VARIABLES  AT  THE  START  OP  THE  RUN.  *00001450 
C***********************************************************************0 ''001460 
C 00001470 

CALL  SNSSET  00001490 

C 00001490 

(-•••••••••••••••••••••••••••••••••••••••••a*************** ...**..**.*..*0000 1500 

C*  LOOP  ON  ITER  FOR  EACH  RUN  OF  THE  LCC.  *00001510 

C ********************************************************* **************00001520 
C 00001530 

DO  999  ITER-1, 5"  00001540 

C 00001550 

<:•*•••*••*•••• •••••*••*••*•••****•*•**•*****•••*•***•*•*•**••*•*••••••••00091560 

C*  PRNPT1  *00001570 

C*  CALL  THE  FIRST  OF  THE  FIVE  PROMPTING  ROUTINES  TO  DETERMINE:  *00001580 

C*  1-  MAX  PIT . *00001590 

C*  MAXPMT  = 0 - USER  HANTS  MINIMUM  PROMPTING  (HITHOUT  EXPLANATORY  *00001600 

C*  MESSAGES).  *00001610 

C*  MAXPMT  = 1 - USER  HANTS  MAXIMUM  PROMPTING  (H ITH  EXPLANATORY  *00001620 

C*  MESSAGES).  *00001630 

C*  2-  PR  NT.  *00001640 

C*  PRNT=U  - TERMINAL  PRINTING  ONLY  (DEFAULT).  *00001650 

C*  =1  - OFF-LINE  PRINTING  ONLY.  *00001660 

C*  =2  - TERMINAL  AND  OFF-LINE  PRINTING.  *00001670 

C*  3-  REREAD.  *00001680 

C*  RE  R EAD  = 0 - (REREAD  IS  ONLY  APPLICABLE  IF  ITER>1)  USE  "HE  *00001690 

C*  VARIABLE  VALUES  OF  THE  LAST  RUN  AS  DEFAULT  VALUES  *00001700 

C*  FOR  THE  CURRENT  RUN  (DEFAULT).  *00001710 

C*  *1  - ONCE  AGAIN  CALL  INIT  AND  THE  FIVE  READ  SUBROUTINES  *00001720 

C*  TO  USE  THE  VALUES  FROM  THE  INPUT  FILES  AS  DEFAULT  *00001730 

C*  VARIABLE  VALUES.  *00001740 

c*«* ••••••••*•••••••••••••••••••••*•••••••*•••**•*•*•••••• *•••••••••••••000 01 750 

C 0000 1760 

FXI"  * 0 00001770 

CALL  PRMPT1  00001780 

C 00001790 

C •*••*•****••*** **•***•*•*•*•••**••*********•*•*•******••••*••••••••*•**00001800 

C*  TITLE,  INITAL,  AND  READ  SUBROUTINES  *00001810 


C*  IF  USER  REOUESTED  OFF-LINE  OUTPUT,  PRINT  TITLE  PAGE  (CALL  TITLE).  *00001820 
C*  IF  THIS  IS  THE  FIRST  PASS  THROUGH  THE  LCC  LOOP  ( IT ER  = 1)  OR  IF  THE  *00001830 
C*  BN FP  SET  PER  EAD= 1 IN  PRMPT1,  THEN  CALL  SUBROUTINE  INITAL  *00001840 
C*  TO  INITIALIZE  CERTAIN  VARIABLES  TO  INITIAL  VALUES  AND  CALL  THE  *00001850 
C*  FIVE  READ  SUBROUTINES  TO  INITIALIZE  VARIABLE  VALUES  TO  THE  VALUES  *00001860 
C*  FOUND  IN  THE  FILES.  EACH  READ  SUBROUTINE  READS  A SINGLE  INPUT  FILE*0000 1870 
C*  AND  CHECKS  THAT  FILE  FOP  ERRORS.  IERROF  COUNTS  THE  NUMBER  OF  *00001880 
C*  ERROPS  FOUND  IN  THE  FIVE  FILES.  IF  IERPOR>F  AFTER  THE  FIVE  READ  *00001990 
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I 


I 


c* 

C*« 

c 


c 

c*< 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


SUBROUTINES,  THE  PROGRAM  ISSUES  A H ESS  AGE  SAYING  IT  HILL  SOON  STOP 


IF  (PRNT.NE.O)  CALL  TITLE 
IF  (ITER.  GT.  1.  AND.  REREAD.  EQ.O)  GO  TO  4 


,*00001900 

>•00001910 

00001920 

00001930 

00001940 


CALL  INITAL 

00001950 

IERRDR  = 0 

00001960 

REWIND  11 

00001970 

REWIND  12 

00001980 

REWIND  13 

00001990 

REWIND  14 

0000200C 

REWIND  15 

00002010 

CALL  READ1 

00002020 

CALL  READ2 

00002030 

CALL  READ3 

00002040 

CALL  READ4 

00002050 

CALL  READS 

00002060 

IF  (IERROR.  NE.O)  WRITE(6,1) 

00002070 

I ERR  I = IERROR 

00002075 

CONTINUE 


C*  PRHPT2 

C*  CALL  THE  SECOND  OF  THE  PROMPTING  ROUTINES  TO  DETERMINE: 

C*  1-  NAMELIST  /GO/,  A NAMELIST  THAT  CONTAINS  ALL  VARIABLES  THAT 
C*  HERE  READ  IN  FROM  THE  FIVE  INPUT  FILES.  BY  ASSIGNING  VALUES 

C*  IN  NAMELIST  /GO/,  THE  USER  OVERWRITES  THE  VALUES  READ  IN  FROM 

C*  THE  INPUT  PILES.  HENCE,  THE  USER  DOES  NOT  HAVE  TO  HAVE 

C*  DIFFERENT  DATA  SETS  FOB  EVE BY  LCC  RUN:  HE  CAN  USE  THE  INPUT 

C*  PILES  AS  HIS  •STANDARD'  DATA.  AND  CAN  MODIFY  WHATEVER 

C*  VARIABLE  VALUES  HE  HANTS  IN  NAMELIST  /GO/. 

C*  2-  NAMELIST  /SENS/,  WHICH  CONTAINS  THE  SENSITIVITY  ANALYSIS 
C*  PARAMETERS.  FOR  EACH  OPTIONAL  SENSITIVITY  FACTOR  XXX  (THO 

C*  SENSITIVITY  FACTORS,  XUC  AND  K,  ARE  NOT  OPTIONALI  , ""HE 

C*  USER  CAN  ASSIGN  VARIABLE  LDXXX  IN  NAMELIST  /SENS/  TO  THE 

C*  NUMBER  OF  THE  LARGEST  DERIVATIVES  OF  TYPE  XXX  WHICH  HE  WISHES 

C*  TO  SEE  IN  HIS  TERMINAL  OUTPUT  (DEFAULT  LDIXX*0|  . THE  USER  CA 

C*  ALSO 

C*  ASSIGN  A VALUE  TO  FINC,  "HE  FRACTIONAL  INCREASE  IN  FACTORS 

C*  WHICH  THE  PROGPAM  SHOULD  USE  IN  THE  SENSITIVITY  ANALYSIS 

C*  LDERV  (DEFAULT  OF  12)  TELLS  THE  NUMBER  (UNLESS  A PARTICULAR 

C*  LDXXX  EXCEEDS  LDERV)  OF  DERIVATIVES  OF  ALL  TYPES  WHICH  THE 

C*  USER  WANTS  TO  SEE  IN  HIS  OFF-LINE  OUTPUT. 

C*  IF  EX  IT=  1 AFTER  PRMPT2,  THE  USER  WANTS  TO  F XI T FROM  THE  PROGRAM. 

C*  AFTER  PRMPT2 , ALL  INPUT  INTO  THE  PROGRAM  HAS  BEEN  DETERMINED. 

C*  THE  CALCULATION  OF  THE  LCC  WILL  FOLLOW. 

C*  AFTER  PRMPT2  LDERV  IS  S FT  TO  THE  MINIMUM  OF  ITS  VALUE  AFTER 
C*  /SENS/  IS  READ  AND  N (LARGEST  LRU  INDEX  NUMBER)  . 

C*** ******* *************************************** •*****•• ************ 

C 


CALL  PRMPT2 

IF  (EX  IT  . EO.  1)  GO  TO  888 
LDERV  = MI  N''  (LDERV,  N) 


ERRCHK 

ERRCHK  CONTAINS  HOST  OF  "HE  CHECKS  ON  THE  INPUT  DATA.  THERE  ARE 
TWO  CLASSES  OF  ERROR  CHECKS:  PATAL  ONES  THAT  INCREMENT  IERRDR  AND 
NON-FATAL  ONES  THAT  INCPFHEN"  IWAPN.  SOME  FAT AL  CHECKS  HAVE 
ALREADY  BEEN  DONE  IN  "HE  READ  SUBROUTINES;  ERRCHK  DOES  FURTHER 
CHECKS  ON  RL,SPTS1*CPTS1*WOR1*DRTS1,CRT?2* WOR2*DRTS2 ,WOR3*DRTS3, 
MTBI,SMH*RMH*BCMH:  NON-FATAL  CHECK'’  SY  ERRCHK  INCLUDE: 

SHTBI,SRCT,SOSI,  SM  H*RM  H*  BCNH  , CONF,  C PM  I , NS  P 


OC002080 
0000  2090 
>•00002100 
*00002110 
*00002120 
*00002130 
*00002140 
•00002150 
*00002160 
*'•0002170 
*00002180 
*00002190 
*00002200 
*00002210 
*00002220 
*00002230 
*00002240 
1*00002250 
*00002260 
*00002270 
*00002280 
•00002290 
*00002300 
*00002310 
*00002320 
*00002330 
*00002340 
*00002350 
•00002360 
>•00002370 
00002380 
00002390 
00002400 
00002410 
00002420 
>•00002430 
*00002440 
*00002450 
*00002460 
*00002470 
•00002480 
•0D002490 
*00002500 
•00002510 
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c» 

c* 

c* 

c*« 

c 


c*< 

c» 

c* 

C*< 

c 


c 

c*» 

c* 

c*< 

c 


c*« 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c*» 

c 


IP  A VARIABLE  PAILS  A PATAL  CHECK,  AH  ERROR  MESSAGE  IS  PRINTED  AND 
THE  LCC  HILL  BE  SKIPPED.  IP  A VARIABLE  PAILS  A NON-PATAL 

CHECK,  A HARMING  MESSAGE  IS  ISSUED  AND  A DEFAULT  VALUE  IS  ASSIGNED. 


IHARN  = 0 
I ERROR  = I ERR  I 
CALL  ERRCHK 

IP  (IHARN.  EQ.C)  GO  TO  5 
H RITE  (6,  2)  IHARN 
IP  (PRNT.NE.O)  HRITE  (7 ,2)  IHARN 
IF  ( I ERROR  . EQ. 0)  GO  TO  6 
HRITE  (6,3)  IERROR 
IP  (PRNT.NE.O)  HR  ITE  (7,3)  TERROR 
GO  TO  88fl 
CONTINUE 


PRELIHI N A RI  CALCULATIONS 

CALL  THE  FIVE  SUBROUTINES  THAT  CALCULATE  THE  AUXILIARY  V API ABLES . 


CALL  AUXIL1 
CALL  AUXIL2 
CALL  AUXIL3 
CALL  AUXIL4 
CALL  AUXIL5 


sun  UP  THE  COST  ELEMENTS. 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


COST1 
COST2 
COST3 
COST  4 
COSTS 
COSTS 
COST7 
COSTS 
COSTS 
COST  10 


SUBSEQUENT  CALCULATIONS 

CALCULATE  THE  NON-COST  VARIABLES  AND  THE  DESIRED  DERIVATIVES. 

THREE  DERIVATIVES  ARE  ALHAYS  CALCULATED  (TDFR (I ) ,TDXOC,TDK) , BUT 
ONLY  THO  DERIVATIVES  ARE  ALHAYS  PRINTED  (TDXUC.TDK:  TDPR  IS  ALHAYS 
CALCULATED  BECAUSE  IT  IS  USED  TO  CALCULATE  TDK)  . FOR  ANY  OTHER 

DERIVATIVE  (CALL  IT  TD ),  THE  SUBROUTINE  (D ) THAT  CALCULATES 

THE  DERIVATIVE  IS  ONLY  CALLED  IP  THE  USER  REQUESTS  OFF-LINE  PRINT- 
ING OP  A NON-ZERO  NUMBER  (LDERV)  OP  LARGEST  DERIVATIVES  OP  ANY  TYPE 

OR  A NON-7.ERO  NUMBER  OP  THE  LARGEST  DERIVATIVES  OP  THIS  tTpe  (LD 

TELLS  THE  NUMBER  OP  LARGEST  TD VALUES  THAT  THE  USER  HANTS 

OP  THIS  TYPE  PRINTED  AT  THE  TERMINAL)  AT  THE  TERMINAL. 

THE  SUBROUTINE  (D ) HILL  CALCULATE  THE  DERIVATIVE 

(TD (1)1  FOR  EACH  LRU  I AND  THEN  HILL  CALL  SUBROUTINE  TDSORT  TO 

BUBBLE  INTO  THE  FIRST  NN  (NN*MAX (LDERV ,LD ))  POSITIONS  OP  ARRAY 

(ID ) THE  INDEX  NOS.  OP  THE  LRUS  HITH  THE  LARGEST  TD VALUES. 


CALL  NONCOS 
CALL  DXUC 


•00002520 
•00002530 
•00002540 
•00002550 
00002560 
00002570 
00002575 
00002580 
00002590 
00002600 
00002610 
00002620 
00002630 
00002640 
00002650 
00002660 
00002670 
•00002680 
•00002690 
•00002700 
•00002710 
00002720 
00002730 
00002740 
00002750 
00002760 
00002770 
00002780 
*00002790 
•00002800 
•00002810 
00002820 
00002830 
00002840 
00002850 
00002860 
00002870 
00002880 
00002890 
00002900 
00002910 
00002920 
00002930 
•00002940 
•00002950 
•00002960 
•00002970 
•00002980 
•00002990 
*00003000 
*00003010 
•00003020 
•00003030 
•00003040 
*00003050 
•00003060 
*00003070 
•00003080 
•00003090 
•00003100 
0C0031 10 
00003120 
00003130 
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CALL  DPR  0000 3 1 40 

CALL  DK  000031  50 

LTEHP  = 1 00003 160 

IP  (LDER  V . EQ . 0 . OR . P RNT . E Q.  0)  LTENP=0  000031  70 

IF  (LDUC. GT.O. OR. LTEHP. GT.O)  CALL  DUC  00003180 

IF  (LDMOR.GT.O.  OR.  LTEHP.  GT.O)  CALL  DNOR  00003190 

IP  (LDPPR.GT.O. OR. LTEHP. GT.O)  CALL  DP  PR  00003200 

IP  (LDCHH. GT.O. OR. LTEHP.  GT.3)  CALL  DC8H  0OOO32’O 

IP  (LDDHH.GT. 0.08. LTEHP. GT. 01  CALL  DDHH  00003220 

IP  (LDRH. GT.O. OR. LTEHP.  GT.O)  CALL  DRfl  00003230 

IP  (LDSRTS. GT.O. OP. LTEHP. GT.O)  CALL  DSRTS  00003240 

IP  (LDCRTS. GT.O. OP.  LTEHP.  GT.O)  CALL  DCRTS  00003250 

IP  (LDDRTS. GT.O. OR. LTEHP. GT.O)  CALL  DORTS  00003260 

IP  (LDHCI. GT.O.  OR.  LTEHP.  GT.O)  CALL  DHCI  00003270 

C 00003280 

c 0000 32 90 
C*  PRHPT3  *00003300 

C*  CALL  THE  THIRD  OP  THE  PROHPTING  ROUTINES  TO:  *00003310 

C*  1-  TELL  THE  OSER  THAT  THE  LCC  CALCULATIONS  HAVE  BEEN  COHPLETED.  *00003320 

C*  2-  GIVE  THE  USER  A CHANCE  TO  EXIT  PROH  THE  PROGRAH.  *00003330 

C*  3-  ALLON  THE  USER  A CHANCE  TO  ADJUST  T ERH IN  AL  TO  A NEK  PAGE  *00003340 

C*  BEPORE  OTAB1  VRITES  AT  HIS  TERHINAL.  *00003350 

C ****************  ******* ********************************** •***•*****•••* 00003360 

00003370 

CALL  PRHPT3  00003380 

IP  (EXIT.EQ.1)  GO  TO  RR8  00003390 

C 00003400 

c •«*•••••*•••••*•*••*•••••••**•••••**•*•*••«*••**•••***•*••••*••••*«••** 0000 34 10 

C*  TNPUT  TABLES  *00003420 

C*  PRINT  THE  INPUT  TABLES  IP  THE  USER  REQUESTS  HARD  COPY.  *00003430 

C*** ********** ******•••*•*•* *••*•*****•**•*•* ************* **************0000 34 40 
C 00003450 

IP  (PRNT.EQ.O)  GO  TO  7 00003460 

CALL  ITAB1  00003470 

CALL  I-AB2  0000 34 HO 

CALL  IT A B 3 00003490 

CALL  ITAB4  00003500 

'ALL  ITAB5  00003510 

7 CONTINUE  00003520 

C 00003530 

C ******* ********************************* ********** ********************* 0000 3540 
C*  PRINT  THE  OUTPUT  TABLES.  *00003550 

C*  OUTPUT  "ABLE  1 AND  THE  SENSITIVITY  ANALYSIS  TABLE  ARE  ALNAYS  *00003560 

C*  PRINTED  SOHEWHERE.  THE  OTHER  OUTPUT  TABLES  ARE  ONLY  PRINTED  (ONLY  *00003570 

C*  OFF-LINE)  IF  THE  USER  REQUESTS  OFF-LINE  PRINTING.  *00003580 

C*  IP  USER  KANTS  TERHINAL  PRINTING,  CALL  PRHPT4  TO  ALLOK  USER  *0  *00003590 

C*  ADJUST  TERHINAL  TO  NEK  PAGE  BEPORE  OSENS  IS  CALLED.  *00003600 

C***********************************************************************00003610 
C 00003620 

CALL  O'ABI  00003630 

IP  (PRNT.EQ.O)  GO  TO  R 000C3640 

CALL  OTAB2  00003650 

CALL  OTAB1  00003660 

CALL  OTAB6  00003670 

CALL  OTABG  000C3680 

8 CONTINUE  00003690 

IP  (PRNT.NE.1)  CALL  PRHPTU  00003700 

CALL  OSENS  00003710 

C 000C3720 

C***  *••****•*•*•••*******•**•***••  ••••*••***•*••**•**••••*•••*•***••**•*001)0  37  30 
C*  PROP'S  *00003740 

C*  CALL  THE  PIPTH  AND  PINAL  PROH  PI I NG  ROU'INE  TO  ASA  IP  ANOTHER  RUN  *00003780 
C*  IS  DESIRED.  IP  NOT,  STOP.  *07003760 
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888  CALL  PR8PT5 

IP  (REDO . EQ.  0)  STOP 
999  CONTINUE 
C 

STOP 

END 


'00003770 

00003780 

00003790 

00003800 

00003810 

00003820 

00003830 

00003840 
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on  nr>  -*  -»o  ooono 


SUBROUTINE  TI-LE 


00000010 
00000C2  3 
00000030 
00000040 

ooooooso 
00000060 
00000070 
00000080 

000  FORHA7  ( 1H 1 /////////////////  00000090 

♦ 35 X, 3 9H**** *****•***••******•***•***••••• »****/35X. 1H«,37X, 1H*/00000100 

♦ 35X.39H*  SEEK  IGLOO  LIPE  CYCLE  COST  BODEl  */35 X , 1 H* , 37X , 1 H*/00000 1 1 0 

♦ 35X.39H*  FIVE  INPUT  TABLES  */35X , 1 H* , 37X , 1 H*/00000 1 20 

♦ 35X , 39H*  SIX  OUTPUT  TABLES  */35x  , 1 H* , 371 , 1 H •)  00000 1 30 

100  FORNAT  (35X.9H*  RUN:  ,27A1,3H  */35X , 1 H •, 37 X , 1 H* / 00000140 

♦ 3SX,39H**************,4**  **••*****••*•***•**•*///)  00000150 

00000160 

0C000170 

WRITE  (7,  1000)  00000180 

WRITE  (7,110?)  (TITl(L)  ,L=1,27)  00000190 

00000200 

00000210 

RETURN  00000220 

END  00000230 
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SUBROUTINE  SNSSE’- 


* THIS  SUBROUTINE  INITIALIZES  SENSITIVITY  ANALYSIS  VARIABLES  TO 

• DEFAULT  VALUES. 


COHNON  /SENS/  El  NC,  LDCHH,  LDCRTS , LDDN H,  L DDRTS,  L DFK V ,L  DPPR , LDER  , 
♦ LDHCI.LDRH.LDSRTS, LDNOR.LDUC 

C 

FINC  * 0.1 
LDCHH  = 0 
LDCRTS  » 0 
LDDHH  = " 

LDDRTS  = 0 
LDERV  * 12 
LDEPR  = 0 
LDER  = 0 
LDHCI  = " 

LDRH  =0 
LDSRTS  = 0 
LD  NOR  * 0 
LDIIC  = 0 

RETURN 

END 


00000010 

00000020 

*000000  JO 

*00000040 

♦ooooooso 

*00000060 

00000070 

00000080 

00000090 

00000100 

00000110 

00000120 

00000130 

00000140 

00000150 

00000160 

00000170 

00000180 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000260 


o n n n n n 


c 


c 


c 


c 


c 


2 

c 


3 


SUBROUTINE  IN  UAL 


THIS  SUBROUTINE  INITIALIZES  CERTAIN  VARIABLES  TO  CERTAIN  DESIRED 
VALUES.  SCALARS  ARE  INITIALIZED  FIRST , AND  THEN  ARRATS. 


CORHON  /IN  IT/  CONPLO, HAIFA, RAILR, RAISE 

COHRON  /RD1/  ADCH. ADPH,B,CAA, CADRE, CCHP , CDR, CDNH ,CLR , CONF, CPH I , 

♦ CPBP,CPNT,CRCT,DAA,DLR,DBCT,DS, 

♦ PAC  (10)  , PCS  ,FSD,H,IHC,K,H,  RCRS,  H IHRS , 

♦ NCP , NDP , N SP , OST ,PIUP,PHE,PPRS,PRODX,REPURB,BRC, 

♦ SA,SAA,SHTBI,SOSI,SPRS, SPCT.SN,  SRPAC, 

♦ TC,  TCCAD.TE  ,TR  ,T»,  TRCA  D , V AL,  XUC,  TOH,  T SC  AD,  TSLR 
INTEGER  CADRE 

REAL  IRC, K, RCRS, RIHRS 

COHRON  /RD2/  A.COC  (150  ) ,COD  ( 150  ) , COS  (1  SO)  , INOSE  (150)  , N SEC  ( 1 SO)  , 

♦ NSEC  (150)  , N SES  (150)  ,SEC(150)  ,SE  N ARE  ( 1 50 , 20) 

BEAL  NSEC,NSED,NSES 

INTEGER  A 

COHRON  /RDO/  I NO  (200)  , LRNAHE  (200 , 20)  , LRPART  (200,  12)  , HCI  (200)  , 

♦ NTBI  (200)  , N , PA  (200)  ,QPA  (200)  ,QR  (200)  ,RH  (200)  , 

♦ UC(200) 

INTEGER  QPA.QR 

REAL  RTBI 


00000010 
00000023 
*00000030 
*00000040 
*00000050 
*00000060 
00000070 
00000080 
00000090 
00000100 
0U000 1 10 
00000120 
000001  30 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 


COHRON  /RD5/  BCHH  (200)  ,CBCHH  (200)  ,CHH  (200)  ,CITS1  (20C)  ,CRTS2  (2001  , 

♦ DBCHH  (200)  , DHH (200)  , DRTS1  (200) , DRTS2  (200)  , 

♦ CRTS 3 (200)  ,PPR  (200)  ,IHH  (200)  ,11015(200)  ,N  15, 

* PARH  (200)  ,RIP(200)  , RL  (200)  ,RRH  (200)  ,SHH  (200)  ,SRTS1  (200)  , 

* HOR1  (200)  ,ROR2  (209)  ,HOR3(200) 

REAL  IN H 

INTEGER  RL 

RIHRS  = 1300. 

HAIFA  = 10 
RAILR  = 200 
HAXSE  * 150 
CONPLO  = f .841 34 


DO  1 L= 1 , 

10 

PAC  (L) 

* 0. 

CONTINUE 

DO  2 J = 1, 

HAXSE 

NSES  (J) 

= 0, 

NSEC  (J) 

= 0. 

NSED  (J) 

* 0. 

CONTINUE 

DO  3 1=1, 

RAILR 

UC(I)  = 

0. 

PPR  (I) 

= 0. 

CRH  (I) 

* 0. 

DHH  (I) 

* 0. 

Rfl(I)  * 

0. 

HCI  (I) 

= 0 

QPA  (I) 

* 0 

RTBI  (I) 

= 990000000 

CONTINUE 

UOOOOlUi 
OOCCO  .1i  3 
00000320 
00000330 
00000340 
00000350 
00000360 
1)0000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
U0000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000510 
00000540 
00000550 
00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000630 


c 


RETORN 

END 


00000640 

00000650 

00000660 


SUBROUTINE  PRMPT1 


SUBROUTINE  PRMPT1 

FIRST  OP  POUR  PROMPTING  SUBROUTINES  TO  READ  IN  USER  INPUTS  PRON 
THE  TERMINAL.  IP  THIS  IS  THE  PIHST  CALL  OP  THE  LCC: 

1-  PRINT  TITLE  ('SEEK  IGLOO  LIFE  CICLE  COST  MODEL, ET C ' ) 

2-  ASK  USER  POR  BIN  OR  MAX  PROMPTING  ( MAX -LON  G PROMPT  COMMENTS) 

3-  ASK  US  EH  HHERE  HE  HANTS  HIS  OUTPUT.  (PRNT=0  TERMINAL  ONLI ; 

PR NT= 1 OPP- LI NE  ONLY;  PRNT  = 2 BOTH  PLACES.) 

«-  IP  USER  REQUEST  OFF-LINE  OUTPUT,  GET  A NAME  POR  THE  RUN. 

IP  THIS  IS  A SUBSEQUENT  CALL  POR  THE  LCC: 

1-  NOTIFY  USER  THAT  YARIABLES  ARE  AS  THEY  HERE  AFTER  LAST 
NAMELISTS  HERE  SUBMITTED. 

2-  ASK  USER  IP  HE  HANTS  TO  REREAD  INPUT  FILES  (REREADS). 

3-  ASK  MIN  OR  MAX  PROMPTING  ONLY  IP  LAST  RUN  HAS  MAX  PROMPTING. 

4-  ASK  USER  8HERE  HE  HANTS  HIS  OUTPUT.  (PRNT=C  TERMINAL  ONLY; 

PR  NT= 1 OPP-  LI  N E ONLI;  PRNT*2  BOTH  PLACES) 

5-  IF  USER  REQUEST  OPP-LINE  OUTPUT,  GET  A NAME  FOR  THE  RON. 


COMMON  /CNTL/  EXI T , IT ER , MAIPRT , P RNT , REDO , REREAD 
INTEGER  EXIT, PRNT, REDO, RFREAD 

COMMON  /TITL/  TITL(2S) 

DATA  BK/1H  /,CHH/ 1 H H/, CHI/1 H I/, CHN/ 1 HN/, C HA/1  HA/, CHX/1 HX/, 

♦ CHY/1HY/ 

FORMAT  (1X/47H  SEEK  IGLOO  LIPE  CYCLE  COST  MODEL  - VERSION  I.Ol 
POPMAT  ( 1 X/50H  AT  THIS  POINT,  VARIABLE  VALUES  ARE  AS  THEY  HERB  A 

♦ 13HFTER  THE  LAST/ 

♦ 53  H NAMELISTS  HERE  SUBMITTED.  DO  IOO  HISH  TO  RESET  NAME 

♦ 9 H LI  ST  /GO// 

♦ 54  H VARIABLES  TO  THE  VALUES  POUND  IN  THE  INPUT  PILES  (Y 

♦ 6 H R N)-7) 

FORMAT  (1X/44H  MINIMUM  OR  MAXIMUM  PROMPTING  (MIN  OR  MAX) -?) 
FORMAT  ( 3 A 1) 

FORMA"'  ( 1 X/50H  SUBMIT  'MIN*  OR  'MAX*  STARTING  IN  COLUMN  1.  NOTH 

♦ 15HING  ELSE  HORKS.) 

FORMAT  ( 30H  OUTPUT  AT  TERMINAL  (Y  OR  N) -? ) 

FORMAT  (A1) 

FORMAT  (49H  SUBMIT  *Y'  OR  ‘N»  STARTING  IN  COLUMN  1.  NOTHING, 

♦ 12H  ELSE  HORKS.) 

FORMAT  ( 38  H OUTPUT  ON  OPP-LINE  PRINTER  (Y  OB  N) -?) 

FORMAT  (29H  SUBMIT  A TITLE  FOR  THIS  RUN:) 

FORMAT  (28A1) 

FORMAT  (/51H  SET  EXIT*1  IN  EITHER  NAMELIST  IP  YOU  NANT  TO  EXIT.| 


IF  (ITER  . N E.  1)  GO  TO  16 
H R IT  E (6,  1) 

GO  TO  18 
CONTINUE 
HRI  TE  (6 , 2) 

REREAD  * 2 
STR 1 * BK 
READ(5,7)  STR  1 
IF  (STR1  . EQ.  CHY)  REREAD  * 1 
IP  (STR1  .EQ.  CHN)  REREAD  = 0 
IP  (REREAD. NE. 2)  GO  TO  16 
HRITE  (6,8) 

GO  TO  17 


COOCOOI) 
0000002-' 
•*00000030 
*00000040 
•00000050 
*00000060 
*0000007} 
* 0000008  3 
*00000090 
*0000010? 
*00000110 
•0000012) 
*00000130 
*00000140 
*00000150 
*00000160 
*00000170 
*000001 80 
*00000190 
**00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
0000028. 
00000290 
CCOCOJO. 
, 0000031 
00000320 
, 00000330 
00000340 
O, 00000350 
00000360 
00000370 
00000380 
, 00000390 
00000400 
00000410 
00000420 
000004  30 
00000440 
00000450 
00000460 
00000470 
00000490 
0000049) 
00000500 
00000510 
00000520 
0000053? 
0000054) 
00000550 
00000560 
00000570 
00000590 
00000540 
OOOOObO) 
00000610 
00000620 
000  006  10 
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18  CONTI NUE 

IP  (ITER. GT.  1 . AND. HBXPHT. NE.  1)  GO  TO  20 
BPITE  (6,  1) 

HBXPHT  » 2 

19  RfAD(5,4)  STRl,  STR2.STR3 

IP  (STB1.EQ.CHH.BND.STR2.EQ.CRI.BND.STB3.EQ.CHN)  HBXPHT  = 0 
IF  (STB  1 . EQ.  CHH  .BND.STB2.EQ.CHA.BND.STB3.EQ.CHX)  HBXPHT  « 1 
IP  (HBXPHT. NE. 2)  GO  TO  20 
BRITE  (6.5) 

GO  TO  19 

20  CONTINUE 
HH  1 = 2 
BRITE  (6,6) 

21  RE  BD  (5, 7)  STR1 

IP  (STR1.EQ.CHt)  HH1  • 1 
IP  (STR1.  EQ.CHN)  HH  1 ■ 0 
IP  (HH1.NE.2)  GO  TO  22 
BRITE(6,  8) 

GO  TO  21 

22  HH  2 = 2 
STR1  * BK 
BRITE  (6,9) 

23  REBD  (5,7)  STR1 

IP  (STR1  .EQ.CHT)  HH2  * 1 
IF  (STR1  . EQ.  CBN)  HH 2 » 0 
IF  (HH2.NE.2)  GO  TO  24 
BRIT  E (6,  8) 

GO  TO  23 

24  CONTINUE 

IF  (HH2.EQ.0)  PRNT-0 
IF  (HH1.EQ.0.BND.HH2.EQ.1)  PRNT  * 1 
IF  (HH1.EQ.1.BHD.HH2.EQ.1)  PRNT  * 2 
IF  (PRNT.EQ.O)  GO  TO  88 
BRITE  (6, 10) 

R EBD (5,  1 1)  (TITL  (L)  ,L  = 1,28( 

88  IF  (HBXPHT.  EQ.  1 . OR.  IT  EH.  EQ.  1)  BRITE(6,12) 

RETURN 

END 

SUBROUTINE  PRHPT2 


C 

C** 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

C** 

c 


SUBROUTINE  PR  HPT 2 

SECOND  OP  THE  PROHPTING  ROUTINES.  PROHPTS  THE  USER  POR  NBHELISTS 
/GO/  (NHICH  CONTBINS  ALL  VARIABLES  REBD  IN  PROH  THE  PITS  INPUT 
PILES  BND  BLLOBS  THE  USER  TO  OVERRIDE  THOSE  VBLUES  IN  REBL  TIRE) 
BND  /SENS/  ( WHICH  CONTBINS  PBRBHETERS  POR  THE  SENSITIVITY 

BNBLTSIS : FOR  EBCH  OPTIONAL  DERIVATIVE  TD , LD TELLS  HOB  HAN 

OF  THE  LARGEST  TD DERIVATIVES  THE  USER  BANTS  TO  SEE  IN  HIS 

TERHINA  L OUTPUT.  LDERV  TELLS  HOB  HANT  OF  THE  LARGEST  DERIVATIVES 
OF  ALL  TYPES  THE  USER  BANTS  TO  SEE  IN  HIS  OFF-LINE  OUTPUT. 


COHHON  /CNTL/  EXIT, ITER, HBXPHT, PRNT, REDO, REREAD 
INTEGER  EXIT, PRNT, RFDO, REREAD 

COHHON  /RD 1 / A DC  H,  A DPR,  B, CAB, CADRE,  CCHP,C  DR,  C DB  H,  CLR  ,CONP,CPHI, 

♦ CPHP , CPBT ,CRCT, DBA, DLH ,DPCT, DS, 

a FAC  (10)  , PCS  ,PSD,H,IHC,K,H,HCRS,HXHRS, 

♦ NCP, NDP,NSP,OST,PIUP,PHE,PPRS,PRCDX,REPORB,RNC, 

♦ SA,SAA,SHTBI,S0SI,SPRS,SRCT,SH,S8FAC, 

♦ TC, TCCAD, TE ,TR, TB.TBCA D,  V AL,  XUC,  YOH,  YSC A D,  YSLR 
INTEGER  CADRE 


00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
00000830 
00000840 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
0C000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
0000  1010 
00001020 
00001030 
90001040 
**00001050 
*00001060 
*00001070 
*00001080 
*00001090 
•00001100 
Y*00001 110 
*0000  1120 
*00001130 
*00001140 
•*00001150 
00001160 
00001170 
00001180 
00001190 
00001200 
0*00 1210 
00001220 
00001230 
00001240 
00001250 
00001260 
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REAL  IHC,IC,BCRS,HXHRS 

COHHON  /RO  2/  A ,COC  ( 150  ) .COD  ( 150)  ,COS  (1 50)  ,INOSE  (150)  , NSEC  (1 50)  , 

♦ NSED  (150)  ,NSES  (150)  ,SEC(150)  ,SENAHE(  150. 24) 

REAL  NSEC, NSED.NSFS 

INTEGER  A 

COHHON  /RD3/  ENTR(IO)  , rA  , PA  NAHE  ( 10 , 24)  , HHCP  (1  0)  , INOFA  (10)  , HHH  ( 10) 
» SIZE  (10)  , SHI  (1C),SHCF  (10)  ,SBFIX(  10)  ,SHVAR  (10)  , 

♦ WEIGHT(IO) 

INTEGER  PA 

REAL  HAH 

COHHON  /RDtt/  INO  (20C>)  .LRNARE  (200,24)  ,LRPART(200,  12)  , HCI  (200)  , 

♦ H TBI  (200)  ,N,PA  (200)  ,QPA  (200)  ,0R  (200)  , Rfl  (200)  , 

♦ irc(2C0» 

INTEGER  QP  A,  QR 
REAL  NTBI 

COHHON  /RD5/  BCHH  (200)  ,CBCHH(200)  . CBH  (200 ) ,CRTS1  (200)  ,CRTS2  (200)  , 

♦ DBCHH  (200)  ,DHH  (200)  , DRTS1  (200)  , DRTS2(200)  , 

♦ DRTS  3 ( 200)  , FPR  (200)  ,IBH  (200)  ,INO15(200)  ,N15, 

♦ PABH  (200)  , RIP  (200)  , RL  (200)  , RHH  (200)  , SB H (200)  , SRTS1  (200)  , 

♦ HOR1  (200)  ,HOR2  (200)  ,HOR3(200( 

REAL  IBH 

I NT  EGER  PL 

COHHON  /SENS/  FINC, LDCHH, LOCRTS , LDDHH, LDDRTS , LDEHY , LDFPR, LDPR , 

♦ LDH  Cl , LDRH , LDSRT5, LDHOR , LDUC 

NAHEL IST/GO/  A DCH , ADPH , B,CAA, CADRE, CCHP ,CDR,CD VH ,CLR, CONP, CPHI, 

♦ C PHP  ,CPHT  ,CRCT,  DA  A,  DLR,  ORCT,  DS , 

♦ FAC, FCS,PSD,H,IHC,K,H,HCRS,HXHRS, 

♦ „ NCP,NOP,NSP,OST,PIOP,PBE,  PPRS,  PR  ODX,  REFUR  B,  RHC, 

♦ FA, SAA,SHTBI,SOSI,SPRS,SRCT,SB,SNPAC, 

♦ Tl , TCCA  D, TE , TR,TW,TNCAD,VAL, XUC , TOH , ISCAD, TS  LR, 

♦ A , COC,  COD, COS  , I NOS  E,  NS  EC, 

♦ N ED, NS  ES,S  PC, SEN  ABE, 

♦ PNTR,PA,PANAHE,HiCP,INOPA,HNH, 

♦ SIZE,SBI,SBCP,SNPII,SN»AR, 

» HEIGHT, 

♦ I NO, LRNABE,LRPART,BCI, 

♦ HTBI,N,PA,QPA,QR,RH, 

♦ (1C, 

♦ BCH  H,  CBCB  H,  CB  H , CR  TS  1 ,CR  TS 2 , 

♦ DBCBH, DHH , DRTS1 , DRTS2 , 

♦ ORTS  3,PPR,IHH,TN015,N15, 

♦ PABH, RIP,PL,RHH,SHH,SRTS1 , 

♦ HOR1  ,HOR2  ,H0R3  , EX  IT 

NA  BEL  I ST/SENS/  PI NC, LDCHH, LDCRTS, LDDHH,  LDDRTS ,LDER Y , LDFPR, LDPi, 

♦ LDHCI , LD  RH,  LDS  RTS , LDHOR,  L DOC,  EX  IT 


1 FORHAT  (IX) 

2 FORHAT  ( 5 1 H N AHELIST  /GO/  CONTAINS  ALL  VARIABLES  POUND  IN  THE, 

♦ 13H  INPOT  PILES.) 

1 FORHAT  ( 52 H AT  THIS  POINT,  NAHFLIST  /GO/  VARIABLES  CONTAIN  YAL, 

♦ 13HUES  AS  IN  THE/ 

♦ 1 8 H THE  INPUT  PILES.) 

4 PORHAT  ( 52H  AT  THIS  POINT,  NAHELIST  /GO/  VARIABLES  ARE  AS  THEY, 

♦ 1 1 H HERE  AFTER/ 

♦ 39 R THE  LAST  NAHELIST  /GO/  HAS  SUBHITTED.) 

5 FORHAT  (5 3 H TO  USE  THESE  VALUES,  SUBHIT  AH  EHPTY  NAHELIST  /GO/./ 


00001270 

00001280 

00001290 

00001300 

00001310 

00001320 

00001330 

,00001340 

00001350 

00001360 

00001370 

00001380 

00001390 

00001400 

00001410 

00001420 

00001430 

00001440 

00001450 

00001460 

00001470 

00001480 

00001490 

00001500 

00001510 

00001520 

00001530 

00001540 

00001550 

00001560 

00001570 

00001580 

00001590 

00001600 

00001610 

00001620 

00001630 

00001640 

00001650 

00001660 

00001670 

00001680 

00001690 

00001700 

00001710 

00001720 

00001730 

00001740 

00001750 

00001760 

00001770 

00001780 

00001790 

00001800 

00001810 

00001820 

00001830 

00001840 

00001850 

00001860 

00001870 

00001880 

00001890 
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30 


TO  OVERSIDE  ART  Of  THESE  VALDES,  SUBHIT  AN  NOH-EHP, 


N AH  EL  1ST  /SENS/  CONTAINS  VARIABLES  THAT  CONTROL  THE/ 
DISPLAY  OF  THE  SENSITIVITY  ANALYSIS.  ) 

AT  THIS  POINT,  THE  TERHINAL  DISPLAYS  SENSITIVITY  HI, 
RESPECT  TO  ONLT/32H  GLOBAL  FAILURE  RATE  (X  FACTOR), 
AND  GLOBAL  EQUIPHENT  COST  (XUC  FACTOR).) 

AT  THIS  POINT,  THE  TERHINAL  SENSITIVITY  DISPLAY  IS/ 
AS  IT  NAS  ON  THE  PREVIOUS  RUN.) 

FOR  THE  SAHE  TERHINAL  DISPLAY,  SUBHIT  AN  EHPTY  NAHE, 
1ST  /SENS/./ 

FOR  A DIFFERENT  TERHINAL  DISPLAY,  SUBHIT  A NON -EH  PT Y 


IF  (HAXPHT.NE.  1)  GO  TO  30 
BRIT E (6,  2) 

IF  (ITER.EQ.I.OR.  REREAD.  EQ.1)  NRITE(6,3) 
IF  (ITER.  GT.  1.  AND.  REREAD.  NE.  1)  BRITE(6,4) 
HRI TE  (6  , S) 

BRITE  (6,6) 

READ(S,GO) 

IF  (EXIT. EQ.1)  RETURN 
BRITE  (6,  1) 

IF  (HAXPHT.NE.  1)  GO  TO  31 
LDTOT  = LDCHH  ♦ LDCRTS  ♦ 

LDSRTS 


♦ 

52  H 

♦ 

17HT' 

6 

PORHAT 

(4 1 H ; 

7 

PORHAT 

(53  H 

♦ 

53H 

8 

PORHAT 

(53  H 

♦ 

18HTH 

♦ 

40H 

9 

PORHAT 

(52  H 

♦ 

32H 

10 

PORHAT 

(53H 

♦ 

1 2 HL 

♦ 

54  H 

♦ 

17H  1 

11 

PORHAT 

(43  H 

C 

WRITE  (6 

31 


► ♦ LDHCI 

BRITE  (6,7) 

IF  (LDTOT.  E0.0) 
IF  (LDTOT. NE.O) 
BRIT  E ( 6,  10) 
BRITE  (6,11) 

READ(  6,  S EN  S) 

RETURN 

END 

SUBROUTINE  PRHPT3 


LDOHH  ♦ LODRTS 
♦ LDVOR  * LDUC 


♦ LDFPR  ♦ LDFR  ♦ LDRH 


BRITE  (6, 8) 
BRITE  (6  ,9) 


• SUBROUTINE  PRHPT3 

• THIRD  OF  PROHPTING  ROUTINES  THAT  TELLS  USER  THAT  LCC  HAS  BEEN 

• COHPLET E D AND  THAT  GIVES  THE  USER  A CHANCE  TO  EXIT. 


COHHON  /CNTL/  EXI T, ITER , HA XPHT, PRNT, RE  DO, RER EAD 
INTEGER  EXIT, PRNT, REDO, REREAD 

DATA  ECHAR/1HF/,BK/1H  / 

2 PORHAT  (1X/15H  LCC  COHPLET E*>. ) 

3 FORHAT  (49H  IF  YOU  NISH  TO  EXIT,  HIT  -B-,  THEN  HIT  -RETURN-;, 

♦ 12H  OTHERBISE,) 

tt  FORHAT  ( 46 H ADJUST  TERHINAL  TO  NEB  PAGE  AND  HI1  -RETURN-.) 

5 FORHAT  ( A 1 ) 


STR  * BN 
BPITE  (6,2) 

IF  (HAXPHT.EQ.1)  BRITE(6,3) 
BRITE  (6,  4) 

READ  (5 ,5)  STR 


00001900 

00001910 

00001920 

00001930 

00001940 

00001950 

00001960 

00001970 

00001980 

00001990 

00002000 

00002010 

00002020 

00002030 

00002040 

00002050 

00002060 

00002070 

00002080 

00002090 

00002100 

00002110 

00002120 

00002130 

00002140 

00002150 

00002160 

00002170 

00002180 

00002190 

00002200 

00002210 

00002220 

00002230 

00002240 

00002250 

00002260 

00002270 

00002280 

00002290 

*00002300 

•00002310 

*00002320 

*00002330 

*00002340 

00002350 

00002360 

00002370 

00002380 

00002390 

00002400 

00002410 

00002420 

00002430 

00002440 

00002450 

00002460 

00002470 

00002480 

00002490 

0C002500 

00002510 

00002520 
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UUUUUOU  uu  u u u uuuuuuu 


IF  (STR.  EQ.  ECHAR)  EXIT  = 1 

RETORN 

END 

SUBROOTINF  PRMPT4 


SUBROUTINE  P8HPT4 

THIRD  OF  PROMPTING  ROUTINES  THAT  ASKS  USER  TO  ADJUST  PAPER  TO  NEB 
PAGE  FOR  OSENS  AND  GIVES  THE  IJSER  A CHANCE  TO  EIIT. 


COHHON  /CNTI./  Eli  T,  ITER  , HAXPHT.  PRNT,  REDO,  REREA  D 
INTEGER  EXIT, PRNT, REDO, REREAD 

DATA  ECHAR/1HF/.BK/1H  / 

2 FORMA"1  (IX) 

3 FORMAT  (49H  IF  YOU  BISH  TO  EXIT,  HIT  -E-,  THEN  HIT  -BETURB-J, 

♦ 1 2 H OTHERRISE,) 

4 FORMAT  ( 46  H ADJUST  TERMINAL  TO  NEB  PAGE  AND  HIT  -BETURN-.) 

■5  FORMAT  (A3) 


STR  = BK 
BRITE  (6,2) 

IF  (M  AXPMT . EQ . 1 ) BRITE(6,3) 
BRITE  (6,  4) 

READ(5,5|  STR 

IF  (STR.  EQ.  ECHAR)  EXIT--1 

RETURN 

END 

SUBROUTINE  PRMPT5 


SUBROUTINE  PBH  PT  5 

FIFTH  AND  FINAL  PROMPTING  ROUTINE  TO  ASK  IP  ANOTHER  RON  IS 
DESIRED.  IF  SO,  REDO  * 1.  IF  NOT,  REDO  * 0. 


COHHON  /CNTL/  Eli T,ITFR, HAXPHT, PRNT, REDO, REREA D 
INTEGER  EXIT, PRNT , REDO, REREAD 

DATA  YES/1 HY/.CNO/1HN/ 

1 FORMAT  (1X/23H  ANOTHER  RON  (Y  OP  N) -?) 

2 FORMAT  ( A 1 ) 

3 FORMAT  (49H  SUBMIT  *Y'  OR  'N'  STARTING  IN  COLUMN  1, 

♦ 1 2 H ELSE  BORKS.) 

REDO  = 2 
BPI-E  (6,  1) 

4 READ(5,2)  STR 

IF  (STR. EO. YES)  REDO*1 
IP  (STR.EQ.CNO)  REDO*? 

IF  (REDO.NE.  2)  GO  TO  * 

BRITE  (6, 3) 

GO  TO  4 

5 CONTINUE 

RETURN 

END 


NOTHING, 


OOOC25J. 
00002540 
00002550 
00002560 
00002570 
00002580 
**00002590 
•00002600 
*00002610 
*00002620 
**00002630 
00002640 
00002650 
00002660 
00002670 
00002680 
00002690 
00002700 
00002710 
00002720 
00002730 
00002740 
00002750 
00002760 
00002770 
00002780 
00002790 
00002800 
00002810 
00002820 
00002830 
00002840 
00002850 
00002860 
00002870 
**00002880 
•00002890 
*00002900 
•00002910 
**00002920 
00002930 
00002940 
00002950 
00002960 
00002970 
00002980 
00002990 
00003000 
00003010 
00003020 
00003030 
00003040 
0000  30  50 
0000306? 
00003070 
00003080 
00003090 
00003100 
00003110 
0000  3120 
00003130 
00003140 
00003150 
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SUBROUTINE  READ1  00000010 

C 00000020 

•••••••••••*•*••••••***•••••••••••••••*•••••••••*•••••••••*••••••*000000 30 

C*  SUBROUTINE  READ  1 *00000040 

C*  SUBROUTINE  READS  NA HELIST/HISC/FROH  THE  UNIT  11  PILES  HISCELLANEOUS*00000050 

C*  INPUTS  (nAINLT  SCALARS).  *00000060 

c*** •••••••••••*••••••*•••••••••••••••••••••••••••••••••••••••*•••••••••00000070 

C 00000080 

COHBON  /RD1/  ADCH.ADPH ,B,CAA, CADRE, CCHP,CDR, CDBB.CLR , COBP, CPB I,  00000090 

♦ CPHP,CPBT,CRCT,DAA,DLR,DRCT,DS,  00000100 

♦ PAC(IO) ,PCS,FSD,H,IHC,K,H,HCRS,NXHRS,  00000110 

♦ NCP,NDP,NSP,OST,PIOP,PHE,PPRS,PRCDX,HEPUB8,RHC,  00000120 

♦ SA,SAA,SBTBI, SOSI, SPRS, SRCT, SB, SBFAC,  00000130 

♦ TC,TCCAD,TE,TR,TB,TBCAD,YAL, IUC, TOH.YSCAD, TSLR  00000140 

INTEGER  CADRE  00000150 

REAL  IBC,K,HCRS,HXHRS  00000160 

C 00000170 

NANELIST  /HI  SC/  A DCH,  A DPH  , B,  CAA.  CA  DR  E,  CCS  P,  CDR,  CDB  H,  CLR,  CONF,CP8I , 000001 80 

♦ CPHP , CPBT ,CRCT, DA A , DL8  , DRCT, DS , 00000190 

♦ FAC,PCS,PSD,H,IBC,K,H,HCBS,HXHHS,  00000200 

♦ NCP, NDP,NSP,OST,PIUP,PBE,PPRS,PHODI,8EFURB,RHC,  00000210 

♦ S A, S A A , S HTB I , SOSI , SPR  S , SRCT, SB, S HP AC,  00000220 

♦ TC,TCCAD,TE.TR,TB,TBCAD,V AL,  IUC,  YOH,  YSCAD,  TSLR  00000230 

READ(  1 1,  RISC)  00000240 

RETURN  00000250 

END  00000260 

SUBROUTINE  ITAB1  00000270 

C 00000280 

C ******************************************* **•**•*•*•*•** ***••***•**• **000002 90 
C*  SUBROUTINE  ITAB1  *00000300 

C*  SUBROUTINE  PRINTS  A INPUT  TABLE  1 BHICH  DISPLAYS  THE  HISCELLANEOUS  *00000310 

C*  INPUTS  (HAINLY  SCALARS).  *00000320 

C*** ************** ************ *•*•***•* '********************************00000330 
C 00000340 

C 00000350 

C 00000360 

COBHON  /RD1 / ADCB,ADPH,B,CAA, CADRE, CCBP,CDR,CDBH, CLR, CONP.CPBI,  00000370 

♦ CPHP, CPBT, CRCT,DAA,DLR, DECT, DS,  00000380 

♦ P AC ( 10)  , PCS ,PSD,H,IHC,K,H, HCRS,HX  HRS,  00000390 

♦ NCP,NDP,NSP,OST,PIUP,PHE,PPRS,PRCDX,REPURB,RHC,  00000400 

♦ SA, SAA.SHTBI, SOSI, SPRS, SRCT, SB, SBPAC,  00000410 

♦ TC,TCCAD,TE,TR,TB,TBCAD,VAL, IUC, YOH.YSCAD, TSLR  00000420 

INTEGER  CADRE  00000430 

RF AL  IHC,K,HCRS,HXHRS  00000440 

C 00000450 

C 00000460 

1000  FORHAT  ( 1H  1.3RX.43HINPUT  TABLE  1:  HISCELLANEOUS  SCALAR  INPUTS)  00000470 

1100  FORHAT  (1 H0//7  X,7  HGENERAL//  00000480 

♦ 15X.22HK  - RELIABILITY  FACTOR , 30X ,F1 2 . 2)  00000490 

1200  FORHAT  (15I.19HH  - NUHBER  OP  S IT BS , 37X, 15, 10 H SITES/  00000500 

♦ 12Y , 32HPT0P  - NUHBER  OP  OPERATING  TEARS, 2 3 X ,P1 2 . 2 , 7H  TEARS/  00000510 

♦ 13X.22HXUC  - UNIT  COST  FACTOR , 32X , F 1 2. 2/  00000520 

♦ 13X , 28HYOH  - YEARLY  OPERATING  HOURS , 25X,P 1 3. 2, 7H  HOURS)  00000530 

1300  TOPHA"  ( 1H9/7X ,27HDEYFLOPHENT  AND  PRODUCTION  //  00000540 

♦ 1 3 X,2 RHPSD  - PULL  SCALE  DEY BLOPH ENT, 26X,  00000550 

♦ F12.3.15H  t IN  BILLIONS/  00000560 

♦ 13X.29HPHE  - PRIHE  HISSION  BQU IPH ENT , 25X, PI  2. 3,  00000570 

♦ 15 H * IN  BILLIONS/  00000580 

♦ 11 X,3 5H PRODX  - ASSOCIATED  PRODUCTION  COSTS , 2 IX, PI 2 . 3,  00000590 

♦ 1 5 H S IN  BILLIONS/  00000600 

♦ 10X , 22HREPURB  - REFURB ISHHENT, 35X ,F 1 2 . 3 , 15H  S IN  BILLIONS/  00000610 

♦ 1 4 X , 2 5H SB  - SOFTBARE  DEVELOPH ENT , 28X , P12 . 3 , 1 5H  S IN  BILLIONS/  00000620 

♦ 13X.31HVAL  - DESIGN  VALIDATION  ,23X,P12.3,  00000630 
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1400 


isoo 


1600 


1700 


1800 


1900 


♦ 15H  * III  BILLIONS)  00000640 

FORK  AT  (1H0/7X  . 1 1 HBAIRTERANCE//  00000690 

♦ 12X.45HADCH  - AVERAGE  LBHGTH  OP  EHERGEHCT  CORRECTIVE/  00000660 

♦ 19X,16HBAIHTEHARCE  TRIP,  32T , P 1 2.  2,6H  DATS/  00000670 

♦ 12X.46HADPH  - DURATION  OP  PREVENTIVE  RAINTENANCE  TRIP,  00000680 

♦ 9X.P12.2.6H  DATS/  00000690 

♦ 13X.28HCAA  - AVAILABLE  WORE  TIDE  PO,  00000700 

♦ 23HR  CHE  RADAR  B AI NTERARCE,  31  ,E1 2.  2, 2 4 H BOORS  PER  TEAS  PER  BAR/  00000710 

♦ 12X , 52HCCBP  - AVERAGE  ROBBER  OP  CBF  PERSON REL  PER  EBERGERCT/  00000720 

♦ 19 1, 27HCORR ECTI VE  B AI HTENAHCE  TRIP, 2 1 X , Pi  2 . 2 , 5H  BEN/  00000730 

♦ 1 3 X , 3 2 BCD R - TDT  RATE  POR  CRP  PERSOR N EL, 221. PI 2 . 2,  00000740 

♦ 11 H S PER  DAT/  00000750 

♦ 1 2 X ,4 9HCD RH  - CBF  HORKI  RG  HOURS  OR  SITE  BAIRTEHARCE  TRIP,  00000760 

♦ 6X.P12.2.23H  HOURS  PER  DAT  PEB  BAR/  00000770 

♦ 13X.30HCLR  - HOORLT  LABOR  RATE  AT  CBP,  24X,  PI  2. 2,  12H  f PER  HO  OR/  00000780 

♦ 12X.51HCPHI  - SHORTEST  PREVENTIVE  RAINTENANCE  INTERVAL  EOR/  00000790 

♦ 1 9X , 1 9HCBE  PERSONNEL  TRIPS, 29X, P12. 2, 7H  HOORS)  00000800 

EORBAT  (121,39  HCPHP  - AVERAGE  NDHBER  OP  CBP  PERSORREL  , 00000810 

♦ 13HPER  SCH  EDUL  ED/ 19X, 27HPREVENTIVE  BAI NTB  NANCE  TRI P, 2 1 1 , PI  2 . 2 , 2X , 00000820 
♦3HHEN/13X.52HDAA  - AVAILABLE  HORN  TIRE  EOR  DEPOT  REPAIR  BAINTENAN , 00000830 

♦ 2HCE,  PI  2. 2,  24H  HOURS  PER  TEAR  PER  BAN/  00000840 

♦ 13 X , 32H DLR  - HOORLT  LABOR  RATE  AT  DEPOT, 22  I , Pi 2 . 2 , 00000850 

♦ 12H  * PER  HOUR/  00000860 

♦14X.48HDS  - FRACTION  OP  FAILURES  A UTOHATICALL I DETECTED, 5 X , El 2. 2/  00000870 

♦ 15X.31HH  - AVERAGE  TRANSPORTATION  COST , 2 II,  P 1 2.  2,  1 2H  * PER  SITE/00000880 

♦ 111,41 HBX HR S - HAXTROR  OR-RADAR  BAI NTE NANCE  TIRE , 1 5 1, PI 2. 2 , 00000890 

♦ 20H  BAR-HOURS  PER  SITE/  00000900 

♦ 13X.46HNSP  - RUBBER  O*  RADAR  BAINTENANCE  HEN  PER  SITE,  00000910 

♦ 12X.I5.8H  BEN/  00000920 

♦ 13X.52HSAA  - AVAILABLE  HORN  TIHE  POR  SITE  RADAR  BAINTENANCE.  00000930 

♦ 2X.P12. 2, 33H  HOURS  PER  TEAR  PER  SITE  PER  BAR/  00000940 

STSTEH  BEAN  TIBE  BETH  BEN  BA  INTER  ARCB  INCIDENTS,  00000950 

HOURS/  00000960 


1 1 X,54H  SBTBI 
II,  PI  3.  2,  7H 


♦ 1 2 X.55H  TSLR  - TEARLT  LABOR  RATE  POR  SITE  RADAR  BAINTENANCE  HEN, 00000970 

♦ F12.2.11H  t PER  BAN)  00000980 

EORBAT  ( 1H0//7X, 17HINVESTBERT  SPARES//  00000990 

♦ 15X.51HB  - RUBBER  OF  STANDARD  DEVIATIONS  FOR  CBP  AND  DEPOT/  00001000 

♦ 19X,29H(ASS0HIRG  EXPECTED  BACRORDER) .19X.F12. 2/  00001010 

♦ 12X.24HCORE  - CONFIDENCE  FACTOR,  3 IX,  El  2. 2/  00001020 

♦ 12I.28HCRCT  - CHE  REPAIR  CTCLE  TIHE,  27I.P  12. 2, 7H  REEKS/  00001030 

♦ 12X , 30H DRCT  - DEPOT  REPAIR  CTCLB  TIHE , 251 ,P12 .2 ,7 H REEKS/  00001040 

♦ 13X.47HOST  - ORDER  AND  SHIPPING  TIHE  PROH  DEPOT  TO  CNF,  00001050 

♦ 71 , FI 2.  2, 7H  REEKS/  00001060 

♦ 1 2 X.55HSOSI  - ORDER  AND  SHIPPING  INTERVAL  BETHEER  SITE  AND  CBF, 00001070 

♦ F12.2.7H  REEKS/  00001080 

♦ 12X , 29HSRCT  - SITE  REPAIR  CTCLE  TIHE ,26I,F 1 2 . 2 , 7H  REEKS)  00001090 

EORBAT  (1H0/7X,20HINVERTORT  BANAGRBEKT//  00001100 

♦ 13I.29HIBC  - INITIAL  HANAGEHENT  COST, 2 5X,P 1 2 .2 , 1 2 H t PER  P ABT/0000 1 1 10 

♦ 1 3 X ,31-H RNC  - RECURRING  HANAGEHENT  COST , 231 , F12. 2,  00001120 

♦ 21H  « PER  PART  PER  TEAR/  00001130 

♦ 14X.43HSA  - SITE  AND  CBP  INVERTORT  HANAGEHENT  COST , 10 X , FI 2 . 2,  00001140 

♦ 30 H * PER  PART  PER  SITE  PER  TEAR)  00001150 

FORBAT  ( 1 H0/7I , 20HSOPTHARE  BAINTENANCE//  00001160 

♦ 12X.32HCPHT  - HARDRARE  ERHANCEHEMT  COST, 2 II, E14. 2,  00001170 

♦ 1 2 H * PER  LBS./  00001180 

♦ 1 1 X.2SH  SHPAC  - SOPTRARE  PACI LIT T . 3 II , P12 . 3 , 00001190 

♦ 15H  t IN  BILLIONS)  00001200 

PORHAT  ( 1H0/7X, 1 1 HCONSOH A BLES//  00001210 

♦ 13X.34HPCS  - COST  OP  POHER  AT  RADAR  S ITES , 201 , P 1 2 . 2,  00001220 

♦ 35 H * PER  KILONATT  HOUR  PER  SITE  / 00001230 

♦ 12  X,  17H  NCRS  - HISCELLAREOUS  CONSUHPTION  R AT  E,  1 81 , FI  2 . 2 , 00001240 

♦ 21H  $ PER  TEAR  PER  SITE/  00001250 

♦ 12  X , 3 RH  PPNS  - COHSU  HPT  I ON  RATE  OP  PRIHE  POR ER, 17X , F 12. 2,  00001260 
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♦ 13H  K W PER  SITE/ 

♦ 12X.42HSP8S  - CONSUMPTION  RATE  OE  SECONDARY  PO RER , 1 3 X , PI  2 • 2 , 

♦ 13H  Ki  PER  SITE) 

FORMAT  ( 1H0/7X,  10  HFACIL ITIES/) 

FORMAT  (10X.4HFAC  (,I1,21H)  - COST  OF  FACILITY  , 12,  291 , FI  2.  3, 

♦ 15 H S IN  MILLIONS) 

FORMAT  (9X.4HFAC  (,I2,21H)  - COST  OF  FACILITY  , 12.  291 , P 1 2 . 1, 

♦ 1 5 H $ IN  MILLIONS) 

FORMAT  ( 1H  0/7X ,8  HTRAI MING// 

♦ 11X.39HCADRE  - NUMBER  OF  HEN  IN  TRAINING  CADRE, 21 X, 15, 

♦ 5X.3HHEN/ 

♦ 13X.41HNCP  - NUMBER  OF  CM F MAINTENANCE  PERSONN EL, 1 7X, 1 5, 5X , 

♦ 3HHEN/ 

♦ 13X.43HNDP  - NUMBER  OF  DEPOT  MAINTENANCE  PERSONNEL, 

♦ 15X,I5,5X,3 HBEN/ 

♦ 14X.31HTC  - COST  OF  MAINTENANCE  COURSE  ,22 X , F12. 2, 

♦ 20H  S PER  RAN  PER  WEEK/ 

♦ 1 1 X , 2 8HTCCA D - COST  OF  CADRE  COUR SE , 28 X, F 1 2 . 2, 

♦ 20 H $ PER  HAN  PER  REEK/ 

♦ 1 4 X , 40HTE  - COST  OF  PECULIAR  TRAINING  EQU  IPH  ENT,  1 1 X, 

♦ F14.2.3H  $/ 

♦ 14X.38HTR  - AVERAGE  MAINTENANCE  TURNOVER  R ATE, 1 5X , F12. 2/ 

♦ 14X.51HTB  - AVERAGE  TRAINING  TIME  FOR  SITE,  CMP,  AND  DEPOT, 

♦ 2X.F12.2.7H  REEKS) 

FORMAT  ( 1 1 X , 31 HTRCA D - TRAINING  TIME  FOR  CADRE, 25X, F12. 2, 

♦ 7H  REEKS/ 

♦ 11  X ,20H  YSCA D - CADRE  S ALA  RT , 36X,  FI  2.  2,  20 H X PER  HAN  PER  YEAR) 
FORMAT  ( 1H1, 38 X, 43HINPOT  TABLE  1:  MISCELLANEOUS  SCALAR  INPUTS, 

♦ 1 2H  (CONTINUED)) 


BRITE  (7,1000) 

BRITE  (7,  1100)  K 

BRITS  (7,1200)  H,PTDP,XUC,YOH 

TEM1  = PSD  / 1000000. 

TEH2  = PHE  / 1000000. 

TEH 3 * PRO DX  / 1000000. 

TEH4  = REFURB  / 1000000. 

TFM5  = SB  / 1000000. 

TEH6  = VAL  / 1000000. 

BRITE  (7,  1 300)  TEH  1 , TEM  2, TEH 3, TEH4 , TEH5 , TE  H6 
BRITE  (7,1400)  ADC  H,  ADPH.CAA,  CCNP,  CDR,  CDB  H , CL  R , CP  MI 
BRITE  (7,  1500)  CPH  P,  DA  A ,DLR  ,DS,  H , HXHR  S,  H SP  , SA  A , SMTBI  , YSLR 
BRITE  (7,1700)  INC , RMC, S A 
BRITE  (7,  2500) 

BRITE  (7,1600)  B,CONP,C  RCT  ,DRCT,OST,SOSI,S  PCT 
TEH1  = SB F AC  / 1000000. 

BRITE  (7,1800)  CPHT.TEH1 

BRITE  (7,  1900)  FCS.HCPS,  PPBS,  SPRS 

BRI-E  (7,200*') 

DO  50  J3 *1 ,10 

IF  (FAC(J3) .LT. 0.00001)  GO  TO  50 
TEH  1 * FAC(J3)  / 1000000. 

IF  (J3.LE.9)  BRITE  (7 ,2100)  J3,J3,TEH1 
IF  (J3.GT.9)  BR  ITE(  7,2200)  J3,J3,TEN1 
CONTINUE 

BRITE  (7,2300)  CAD  RE,  NCP,  N DP.TC,  TCC  A D,  T E,  T R,  TB 
BRITE  (7,  2400)  TBCAD.YSCAD 

RETURN 

END 


00001270 
00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001350 
00001360 
00001370 
00001380 
00001390 
00001400 
00001410 
00001420 
00001430 
00001440 
0000 1450 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
00001580 
00001590 
00001600 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 
00001680 
00001690 
00001700 
00001710 
00001720 
00001730 
00001740 
00001750 
00001760 
00001770 
00001780 
00001790 
00001800 
00001810 
00001820 
00001830 
00001840 
00001850 
00001860 
00001870 
00001880 
00001890 
00001900 
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SUBROUTINE  READ2  00000010 

C 00000020 

C*** ********«*»**«***•»*•••••**••**•«••.•.***•*•****•**•***•**••****•**• 000000 30 
C*  SUBROUTINE  READ2  READS  IN  THE  SUPPORT  EQUIPHENT  INPUTS  PR  ON  U NIT  1 2 .*  000000  40 
C*  ONE  RECORD  IS  READ  IN  FOR  EACH  SE  UP  TO  A HAXIHOH  OP  ISO  SES  IN  *00000050 

C*  THE  SYSTEH.  NO  INDEX  NUKBFR  NAI  EXCEED  ISO.  *00000060 

C*  -A-  INDICATES  THE  LARGEST  SE  INDEX  THAT  NAS  INPUT.  THE  USE*  BUST  *00000070 

C*  HAVE  HIS  SE  INDICES  IN  ASCENDING  OBPER,  BUT  INDEX  RUBBERS  NAY  BE  *00000080 

C*  SNIPPED  (I.E.,  THERE  NAY  BE  GAPS  IN  THE  PILE).  FURTHERHORE,  THE  *00000090 

C*  USER  CAN  HAVE  THE  PROGRAH  SNIP  A PARTICULAR  SUPPORT  EQUIPHENT  TYPE  *00000100 
C*  BY  SETTING  USES, NSEC,  AND  NSED  TO  0.  FOR  THAT  SE  TYPE.  *00000110 

C**»**  ************************************ •*•*•***•******•**»»•* ******* •'00000 120 
C 00000130 

CONHON  /RD2/  A.COC(ISO)  ,COD  (ISO)  ,COS  (150)  ,INOSE  (150)  , NSEC  (150)  , 00000140 

♦ NSED  (150)  ,NSES  (ISO)  , SEC  (150)  ,SENANE(  150, 24)  00000150 

REAL  NSEC, NSED, NSES  00000160 

INTEGER  A 00000170 

C 00000180 

CONHON  /CNTL/  EXI T, IT E R , NA X PNT , P RNT , R EDO, RER B A D 00000190 

INTEGER  EXIT, PRNT, REDO, REREAD  00000200 

C 00000210 

CONHON  /ERROR/  I EPROR , INA R N 00000220 

C 00000230 

CONHON  /IN  IT/  CONFLO, HAIFA, HAILR.BAXSE  00000240 

C 00000250 

REAL  NSECX.NSEDX, NSESX  00000260 

DATA  STAR/1H*/  00000270 

DIHENSION  SENA  NX  (24 ) 00000280 

C C0000290 

1 FORNAT  (A1  ,13, 24A1 , F4.0,F*.C,F4 .0,  P7 .0,  F3.  2,  F3.  2,P3.  2)  G000030C 

C 00000310 

2 FORNAT  (/49H  UNIT  12  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/  00000320 

♦ 17X.40HHAXT HUH  RUBBER  OF  SE  TYPES  NERE  READ  IN.)  00000330 

C 00000340 

3 FORNAT  f A 1 ) 00000350 

C 00000360 

4 FORNAT  ( /5 0 It  UNIT  12  ERROR:  SE  NUNBERS  NOT  INCREASING  FOR  SE  , 00000370 

♦ 6HNUHBER  ,I3,1H.)  00000380 

C 00000390 

5 FORNAT  (/48H  UNIT  12  2RPOR : INDEX  NUHBER  HAS  NOT  POSITIVE.  ) 00000400 

C 00000410 

6 FORNAT  (/49H  UNIT  12  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/  00000420 

♦ 17X, 40HNAXIHUN  SE  INDEX  NUHBER  HAS  READ  IN.  ) 00000430 

C 00000440 

A * 0 00000450 

C 00000460 

c*** ••*****••••*****•*•*•••****•*••*•*•*«*••*••*••*•*••••• ••*•••••••••**00000470 

C*  THE  SUPPORT  EQUIPHENT  INPUTS  EOLLOH  HERE.  AN  END-JF-PILE  IS  *00000480 

C*  DESIGNATED  BY  A STAR  (*)  IN  COLUMN  1 OF  THE  LAST  RECORD.  IF  NORE  *00000490 
C*  THAN  150  SES  ARE  INPUT,  AN  ERROR  HESSAGE  IS  PRINTED  OUT.  A *00000500 

C*  KEEPS  TRACK  OF  THE  LARGEST  SE  INDEX  EROH  UNIT  12.  *00000510 

C*  USER  HUST  HAVE  THE  SE  NUNBERS  IS  INCREASING  ORDER,  BUI  GAPS  NAY  *00000520 
C*  EXIST.  THE  PROGRAH  HILL  KNOH  THAT  AN  SE  NUHBER  HAS  SKIPPED  *00000530 

C*  BECAUSE  NSEC*NSFD*  NSES  FOP  THAT  SE  INDEX  HILL  SUN  TO  ZERO.  *00000540 

C*  NO  INDEX  NUHBER  NAY  BE  LESS  THAN  ZERO  OR  GREATER  THAN  150.  *00000550 

C*** •••••*••••••••••••*•*•*•»••••*•**•••••*•*••••*••**•*••••**•••••••••• 00000560 

C 00000570 

DO  25  II=1,HAXSE  00000580 

READ  (12,1)  COL1 , INOSE  (II)  , (SENANX  (J)  , J*1, 24)  , 00000590 

♦ NSESX, NSECX, NSEDX, SECX , COS  X , COC X ,COD X 00000600 

C 00000610 

C SKIP  OUT  IE  HE  HAVE  FOUND  THE  EOP  HARKER.  00000620 

IP  (COL1  .EQ.  STAR)  GO  TO  30  00000630 
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.SKIP  THIS  SB  TYPE  ir  NS  ES  , NS  EC,  NS  ED*0  . 

TOT  * NSESI  ♦ NSECX  ♦ NSEDI 
IP  (TOT. LT . 0 . OOP  1 ) GO  TO  25 
L*INOSE  ( II) 

.PRINT  AN  ERROR  MESSAGE  IP  INDEX  NAS  NOT  POSITIVE. 
IP  (L.GT.O)  GO  TO  21 
NRITE  (6,5) 

IP  (PRNT.NE.O)  NR  ITE  ( 7, 5) 

I ERROR  * I ERROR  ♦ 1 

GO  TO  25 

.ASSIGN  VALDES  POR  SE  TYPE  L. 

DO  22  J*1,  24 

SENAHE(L.J)  * SENA  (IX  (J) 

COHTINDE 
N SE  S (L)  = NSESI 

NSEC  (L)  « NSECX 

NSED(L)  * NSEDX 
S EC  (L)  = SECX 
COS  (L) 

COC  (L) 


cosx 

cocx 


COD(L)  = COD  X 

.PRINT  AN  ERROR  MESSAGE  IP  INDEX  DOES  NT  EXCEED  PREVIOOS  INDEX. 


00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
000008  30 
00000840 
00000850 


IP  (L.GT.A)  GO  TO  23 

00000860 

N R IT  E ( 6,  4)  L 

00000870 

IP  (PRNT.NE.O)  NRITE  (7,4)  L 

00000880 

I ERROR  = I ERROR  ♦ 1 

00000890 

GO  TO  25 

00000900 

23 

A = L 

00000910 

C... 

PRINT  AN  ERROR  MESSAGE  IP  INDEX  EXCEEDS 

150. 

00000920 

IP  (A.  LE.HAISE)  GO  TO  24 

00000930 

NRITE  (6,6) 

00000940 

IP  (PRNT.NE.O)  NRITE (7,6) 

00000950 

IERROR  * I ERROR  ♦ 1 

00000960 

GO  TO  30 

00000970 

24 

IP  (A. EQ. RAISE)  GO  TO  26 

00000980 

25 

CONTINUE 

00000990 

C 

00001000 

26 

READ  (12,3)  COL  1 

00001010 

IF  (COL1  .EQ.  STAR)  GO  TO  30 

00001020 

IP  (II.  GE.  RAISE)  GO  TO  27 

00001030 

C... 

PRINT  ERROR  MESSAGE  IP  INDEX  NUMBER  150 

BAS  NOT 

POLLONED 

BY  E3P. 00001040 

NRITE  (6,6) 

00001050 

IP  (PRNT.NE.O)  NRITE  (7,6) 

00001060 

GO  TO  28 

00001070 

c... 

.....PRINT  PRROR  MESSAGE  IP  151ST  CARD  NOT  EOP. 

00001080 

27 

NRITE  (6,2) 

00001090 

IF  (PRNT.NE.O)  NRITE  (7,2) 

00001100 

28 

IERROR=IERROR» 1 

00001110 

C 

00001120 

30 

RETURN 

t 

00001130 

END 

00001140 

SUBROUTINE  ITAB2 

00001150 

C 

00001160 

r##« 

c« 

SUBROUTINE  ITAB2  PRINTS  OUT  TABLE  2 ON  UNIT 

7 (LINE 

PRINTER)  . 

IT  *00001180 

* • 

IS  NA'ICALLY  AN  ECHO  PRINT  OP  INPUT  UNIT  12 

*00001190 

/NO  2/  A ,COC  ( 150 ) , COD  (150)  ,COS(150)  ,INOSE(150)  ,NSEC  (150) 
• SEOJI'D,  .USES  (150)  , SBC  (150)  ,S EN AH E(  1 50 , 24) 

• < »i  mr.mo.un 


00001210 

00001220 

00001230 

00001240 

00001250 

00001260 


79 


onononn  nonnn  o n n no 


1 POF MAT  ( 1H  1,  36  X.29RINPUT  TABLE  2:  INPUTS  BT  SUP, 

♦ 19HPOPT  EOUIPHFNT  TYPE///) 

2 PORRAT  (1H1,36X,41HINPUT  TABLF  2:  INPUTS  BY  SUPPORT  FUUIPHE, 

♦ 19RNT  TYPE  (CONTINUED)///) 

3 POPRAT  (79I.8HPRACTION,5X,8HPRACTION,5l,8RPRACTION/ 

♦ 79X.9HUNIT  COST, 4X, 9H0NIT  COST , 9 I, 9 H U N IT  COST/ 

♦ II ,7HSUPPCRT,29I,6HNURRER,5X,6HNURBER, 4X , 6 HRUR BBR , 1 5X, 

♦ 10HTO  OPERATE,  31,  10HTO  OP  ER  ATE  , 3 X , 1 OHTO  OPERATE/ 

♦ 1X,6KEQUIP.  ,J0X,8HREQUIRED,  3 X , 8 H REQU  I R ED, 

♦ 21, 8HRE0UIR ED, 41, «HUNIT,FI , 

♦ 10H6  HAINTAIN,  3X,  IP  HR  HA  I NTA I N,  3 X,  1 0H6  HAINTAIN/ 

♦ 1 Z,5HINDEX,6I, 12HNOHENCLATURE, 1 3I.9HEACH  SITE,2I,6HAT  CRP, 41, 

♦ 8H  AT  DEPOT,  41, 4HCOST,  5X,  7HAT  SITE,6l,6HAT  CHP,7X,8HAT  DEPOT/ 

♦ 37X.6H  (NSES)  ,5  X,6H  (NSEC)  ,4I,6H  (NS  ED)  ,6X,  5H  (SEC)  , 41 . 5H  (COS)  , 

♦ 8X  ,5H  (COC)  , 8X,  5H  (COD) /) 

4 PORRAT  (2I,I3,4X,24A1,4X,P7.2,4X,P6.2,4X,P6.2,4X,P7.0,4X,P5.2, 

♦ 81  ,P5.  2,81,  PS.  2) 


PRINT  OUT  TABLE  2 HEADINGS 


LIWCNT»0 
■ RITE  (7,1) 
WRITE  (7,3) 


THIS  DO-LOOP  PRINTS  OUT  THE  UNIT  12  DATA.  SO  LI  RES  OP  DATA  ARE 
WRITTEN  BEPORE  THE  PRINTER  JURPS  TO  A NEW  PAGE.  TABLE  HEADINGS 
ARE  PRINTED  ON  EACH  NEW  PAGE. 


IP  (A.E0.O  GO  TO  26 
DO  25  L=1,A 

TOT  * NSES(L)  ♦ NS  EC  (L)  ♦ NS  ED  (L) 
IP  (TOT. LT. 0.000  1)  GO  TO  25 
WRITE  (7,4)  l,  (SENAHF  (L,J)  , J=1 ,24) 
♦ S EC  (L)  , COS  (L)  , COC  (L)  , COD  (L) 

C 

LINCNT=LINCNT*1 
IP  (LINCNT.LT.50)  GO  TO  25 
WRITE  (7,2) 

WRITE  (7,3) 

LI  NC  NT  *0 

25  CONTINUE 

26  CONTINUE 
C 

RETURN 

END 


9000 1270 
00001280 
00001290 
00001300 
90001310 
00001320 
00001330 
00001340 
00001350 
00001360 
00001370 
00001380 
00001390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
•0000 1510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
00001580 
•00001590 
•00001600 
•00001610 
00001620 
00001630 
00001640 
9000  1650 
00001660 
00001670 

NSES  (L)  , NSEC(L)  , NSED(L)  , 00001680 

00001690 

00001700 

00001710 

00001720 

00001730 

00001740 

00001750 

00001760 

00001770 

00001780 

00001790 

00001800 


80 


I 


»,  SUBROUTINE  READ3  00000010 

C 00000020 

C*** *••****••****•**•*•***•*••••*•**••*•••••••••*•*•*••* ***•*•••••••••*•000 000 30 

C*  SUBROUTINE  READ3  READS  IN  THE  rUNCTIONAL  AREA  INPUTS  PROH  UNIT  13.  *000000110 
C*  ONE  RECORD  IS  READ  II  FOR  EACH  PA  UP  TO  A HAII HUH  OP  10  PA'S  IN  *00000050 
C*  THE  STSTEH.  *00000060 

C*  THE  INDEX  NUHBERS  BUST  BE  CONSECUTIVE  STARTING  KITH  1.  *00000070 

c •••••*••••••*••*•*••••••••••••*••••***••*•••••••**•**•••••*•••••••••*•*00000080 

C 00000090 

COHHON  /RD3/  E NTR  ( 10)  , PA  , PA  NAHE  ( 1 0,  2 9)  , HHCP  (1  0)  ,INOFA(10)  ,HHH(10)  ,00000100 

• SIZE  (10)  .SHI  (10)  ,SRCP(10)  ,SBPIX(  10)  ,SRVAR  (10)  , 00000110 

• N EIGHT  ( 10)  00000120 

INTEGER  PA  00000130 

REAL  HHH  00000190 

C 00000150 

COHHON  /CNTL/  EX  IT,  ITER  , H A XPHT  , PRNT  , REDO,  RERE  AD  00000160 

INTEGER  EXIT, PRNT, REDO, REREAD  00000170 

C 00000180 

COHHON  /ERROR/  I ERROR , IRAR  N 00000190 

C 00000200 

COHHON  /IN  IT/  CO  NPLO,HAXFA,HAXLR., RAISE  00000210 

C 00000220 

C 00000230 

DATA  STA  R/1 H •/  00000290 

C 00000250 

1 PORHAT  ( A 1 ,I3,29A  1,F5.  0.2P5.2,  P7.0,  P3.2,  P7.0,  P3.2.P3. 1 ,P6. 3)  00000260 

C 00000270 

2 PORHAT  (/99H  UNIT  13  ERROR:  END  OP  PILE  CARD  NOT  POUND  AFTER/  00000280 

• 17X.91 RHAITHUH  RUBBER  OP  PA  TYPES  RERE  READ  IN.)  00000290 

C 00000300 

3 PORHAT  ( A 1 ) 00000310 

C 00000320 

9 FORHAT  (/51H  UNIT  13  ERROR:  PA  NUHBERS  NOT  CONSECUTIVE  STARTI,  00000330 

• 25HNG  WITH  1 FOR  PA  RUBBER  ,13, 1H.)  00000390 

C 00000350 

PA  * 0 00000360 

C 00000370 

C«*» •••••••••• •**•••••••••••••*•••••••••••••••••••••••••••••••••••••••••00000380 

C*  THE  FUNCTIONAL  AREA  PILE  INPUTS  IN  THIS  LOOP.  AN  EN D-3 F- PILE  IS  *00000390 
C»  DESIGNATED  BY  A STAR  (•)  IN  COLUHN  1 OP  THE  LAST  RECORD.  IP  BORE  *00000900 
C*  THAN  10  PAS  ARE  INPUT,  AN  ERROR  HESSAGE  IS  PRINTED  OUT.  PA  *00000910 

C*  KEEPS  ’■RACK  OP  THE  LARGEST  PA  INDEX  FROH  UNIT  12.  *00000920 

C*  USER  HOST  HAVE  THE  PA  NUHBERS  CONSECUTIVE  STARTING  NITH  1.  *00000930 

^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••ooooomo 

C 00000950 

DO  25  J* 1 , HA XP A 00000960 

READ  (13,1)  COL1.INOPA  (J)  , (PANAHE(J,L)  , L*1, 29)  ,SHI  (J)  ,RNH(J)  , 00000970 

• ENYR(J)  .HEIGHT  (J)  , HHCP(J)  ,SIZE(J)  ,SHCP(J)  ,SRPIX(J)  ,SIVAR(J)  00000980 

C 00000990 

IP  (COL  1 . EQ. STAR ) GO  TO  30  00000500 

IE  (INOP  A ( J)  .EQ.J)  GO  TO  23  00000510 

WRITE  (6,9)  INOEA(.I)  00000520 

IP  (PRNT.NE.O)  NR  ITE  (7,9)  INOPA  (J)  00000530 

IERROR  = I ERROR  ♦ 1 00000590 

23  CONTINUE  00000550 

PA  * INOPA  (J)  00000560 

SWPIX(J)  = SNPIX(J)  • 1000.  00000570 

25  CONTINUE  00000580 

C 00000590 

READ  (13,3)  COL1  00000600 

IP  (COL1 .EQ. STAR)  GOTO  30  00000610 

WRITE  (6,2)  00000620 

IE  (PRNT.NE.O)  WRITE  (7,2)  00000630 


I 


no  no 


* 


t 

i 


i 


30 


C* 

c* 

c« 

c 


1 


2 


c 


IEPR0R=IFRROR* 1 

RETURN 

END 

SUBROUTINE  IT  A B3 


SUBROUTINE  ITAB3  PRINTS  INPUT  TABLE  3,  INPUTS  BY  FUNCTIONAL  AREA. 


COMMON  /R  D 3/  ENYR  (10)  , PA,  PA  NAME  (IT,  29)  ,HWCP(10)  ,INOFA(  10)  ,NNH(  10) 

♦ SIZE  (1C)  , SB  I (10)  , SBCF  (10)  .SWPIX  (1  0)  .SWVAR  (4  0)  , 

♦ WFIGHT(IO) 

INTEGER  FA 

REAL  NNH 


FORMAT  ( 1H1,  30X,  4 1HINP1IT  TABLE  3:  INPUTS  BY  FUNCTIONAL  AREA/// 

♦ 33X.99HAVG.  HRS.  NAN-HOURS  EXPECTED  HEIGHT  EXPECTED  , 

♦ 17HNUNBER  EXP  ECTED,  1 0X  , 9H  HA  N- POWER/ 

♦ 6H  PUNC- ,27  X, 3BHNAINT.  SCHEDULED  NUMBER  IN  LBS.  , 

♦ 96HFRACTTON  SOFTWARE  FRACTION  FIXED  COST  PER/ 

♦ 7H  TIONAL, 26X, 37HINTFRVAL  N A I NT . ENHANCE-  HARDWARE, 

♦ 95H  H AP  DW  A Rr  OBJECT  SOFTWARE  NAN-  OBJECT/ 

♦ SH  AREA,  , 3BHRY  SITE  TASK  SITE  RENTS  AND  , 

♦ U6HCHANGED  INSTRUC-  CHANGED  POWER  INSTRUC-/ 

» 22H  INDEX  NOMENCLATURE, 1 IX, 

♦ 59HPERSONNEL  PERSONNEL  PER  YEAR  FIRHWAPE  PER  ENHNT.  TIONS, 

♦ 26H  PER  ENHNT.  COST  TION/ 

♦ 3 3 X , 5 H (SRI)  , SX,5H(HNH)  , SX  , 6 H ( E NY  R)  , 3 X, 

♦ 5 X,6  H (SIZE)  , 3 X ,6  H (SWCF)  ,9X,1SH(SWFTX) 

F7. 2,F10.2,F9. O.FIO.O 
. 3) 


(FANANE(J,L)  , L = 1 , 2 9 ) ,SNI  (J)  , NNH  (J)  , ENYR  (J)  , 
, HWC  P ( J)  .SIZE  (J)  ,SWCF(J)  ,SWPIX  (J)  , S WVA  R (J) 


RETURN 

END 


FORMAT  ( IX, 13,  HI,  2«A1, 
♦ F9.2.F10. 1.F10 


WRITE  (7,  1) 

DO  5 J = 1,PA 

WRIT  E ( 7 , 2)  INOPA  (J)  , 
♦ WEIGHT  ( J) 

CC NT  I HUE 


1 5 H (WEIGHT)  (HWCF)  , 
(S  W V AR)  /) 

,P9.2,P11 .0, 


00000690 
0000  06  SO 
00000660 
00000670 
00000680 
00000690 
•00000700 
•00000710 
•00000720 
00000730 
,00000790 
0000  0 7 SO 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
00000830 
00000890 
000008SO 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000990 
000009S0 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001090 
00301050 
00001060 


’ 

I 

I 


‘ 


i 

i 

' 

I 


I 

I 

< 

I 

I 


J 

I 


SOBROOTI NE  READ4 
C 
c 

C*  SOBROOTINE  REAIM  reads  tl  THE  first  lro  file  off  OF  INPOT  ONIT  14 
C*  CNE  RECORD  IS  READ  IR  FOR  EACH  LRO  OP  TO  A BAXIBUB  OF  200  LROS  IH 
C*  THE  STSTEH. 

C*** •••*•*•••••••* 

*C 

COHHON  /RD4/  INO  (200)  , LRN  AH  E (200 , 24)  , LR  PART  ( 200,  1 2)  , HCI  ( 200)  , 

♦ HTBI  (200)  , N , PA  (200)  ,QPA  (200)  ,QB  (200)  ,RH  (200)  , 

♦ OC  (200 ) 

INTEGER  QP  A,  QR 

REAL  HTBI 
C 

COHHON  /ERROR/  I ERROR , IHARN 

C 

COHHON  /I NIT/  CON FLO, HAIFA, HAT LR, RAISE 

C 

COHHON  /CNTL/  Eli T, ITER , HAIPBT, P RNT, REDO , REREA D 
INTEGER  EXIT, PRNT, REDO, REREAD 
C 

REAL  HTBI X 
DATA  STAR/1 H*/ 

DIHENSION  LRNAHX  (24)  , LRPARX  (12) 

INTEGER  QPAX.QRX 

C 

1 PORHAT  (A1,I3, 24A1,12A1,I3,I3,F7.0,P3.3,P9.0,F5.2,I1) 

C 

2 FORHAT  (/49H  ON  IT  14  ERROR:  END  OF  FILE  CARD  NOT  POOND  AFTER/ 

♦ 17X,41HHAXIHUH  NOHBER  OF  LRO  TIPES  WERE  READ  IN.) 

C 

3 FORHAT  ( A1) 

C 

4 FORHAT  (/52H  ONIT  14  ERROR:  LRO  NONBERS  NOT  INCREASING  FOR  LRO 

♦ 7HNOHBER  ,13, IH.) 

C 

5 FORHAT  (/48H  ONIT  14  ERROR:  INDEX  NOHBER  HAS  NOT  POSITIVE.  ) 

C 

6 FORHAT  (/49H  ONIT  14  ERROR:  END  OP  FILE  CARD  ROT  FOOND  AFTER/ 

♦ 171,41 HHAXIHOB  LRO  INDEX  NOHBER  HAS  READ  IN.  ) 

C 

N = 0 
C 

(:••••••*••••••••*•••••*••••••*•••*••••••*••••••••••••••••••••••••••••< 

C*  THE  FIRST  LRO  FILE  IS  INPOT  IN  THIS  DO-LOOP.  AN  END-OF-FILE  IS 
C*  DESIGNATED  BT  A STAR  (•)  IN  COLOHN  1 OF  THE  LAST  RECORD.  IP  HORE 

C*  THAN  200  LROS  ARE  INPOT,  AN  ERROR  BESSAGE  iS  PRINTED  POT.  N 

C»  KEEPS  TRACK  OF  THE  LARGEST  LRO  INDEX  FROH  ONIT  14. 

C*  -THE  LARGEST  LRO  INDEX  HOST  NOT  EXCEED  200. 

O*  OSER  HOST  HAVE  THE  LRO  NONBERS  IN  INCREASING  ORDER,  BOT  GAPS  NAT 
C*  EXIST.  THE  PROGRAH  BILL  KNOB  THAT  AN  LRO  NOHBER  HAS  SKIPPED 

C*  BECAUSE  QPA  FOR  THAT  LFO  NOHBER  HILL  HATE  A VALOE  OF  EERO. 

C*** •••••*•• **•••••• ••• ••••••••••* *•*••••••••••••••••••••• •••*•••••••< 

c 

DO  25  II»1,HAXLR 


READ  (14,1)  COL1,INO(II)  , (LRNAHX(J)  ,J«1  ,24)  , (LRPARX(J)  , 
♦ J = 1 , 1 2 ) , QPAX,ORX,UCX,RHX,HTBIX,PAX, NCII 

C 

C SKIP  OOT  OF  ROOTINE  IF  HE  HATE  COHE  TO  THE  EOF  CARD. 

IF  (COL1 . EQ. STAR)  GO  TO  30 
I*INO (II) 

C PRINT  ERROR  HESSAGE  IF  INDEX  NOT  POSITITB. 

IF  (I.GT.C)  GO  TO  20 


00000010 
00000020 
••00000030 
*00000040 
•00000050 
•00000060 
•*00000070 
00000080 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
, 00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
**00000440 
*00000450 
*00000460 
*00000470 
*00000480 
•00000490 
•00000500 
*00000510 
*00000520 
••00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000630 


83 


BRITE  (6.5) 

00000640 

IE  (PRNT.NE.O)  BR ITE  (7,5) 

00000650 

IERROR  = I ERROR  ♦ 1 

00000660 

GO  TO  25 

00000670 

c... 

THAN  200. 

00000680 

2C 

IE  (I.LE.HAXLR)  GO  TO  21 

00000690 

BRITE  (6  ,6) 

00000700 

IE  (PRNT.RE.O)  BR  ITE  (7,6) 

00000710 

IERROR  = IERROR  ♦ 1 

00000720 

GO  TO  30 

00000730 

c... 

.....ASSIGN  VALUES  TO  LRO  VARIABLES. 

00000740 

21 

DO  22  J = 1,  24 

00000750 

LRNAHE  (I  , J)  » LRNAHX  (J) 

00000760 

IE  (J.LT.13)  LRP ART ( I , J)  * LRPARX(J) 

00000770 

22 

CONTINUE 

00000780 

QPA(I)  = QP  AX 

00000790 

QR(I)  = ORX 

00000800 

OC(I)  « UCX 

00000810 

RH(D  * HR  X 

00000820 

HTBI(I)  = HTBIX 

00000830 

PA  (I)  - PAX 

00000840 

HCI(I)  » RCIX 

00000850 

C..  , 

PRINT  ERROR  HESSAGE  IE  INDEX  NOT  GREATER  THAN  PREVIOUS  INDEX. 

00000860 

IE  (I.GT.N)  GO  TO  23 

00000870 

BRITE (6 ,4)  I 

00000880 

IE  (PRNT.NE.O)  BR  ITE  (7, 4)  I 

00000890 

IERROR  = IERROR  ♦ 1 

00000900 

GO  TO  25 

00000910 

23 

N = I 

00000920 

IE  (N.  EQ.HAILR)  GO  TO  26 

000009  30 

25 

CONTINUE 

0000094.- 

C 

00000950 

26 

READ  (14,3)  COL1 

00000960 

IE  (COL1.  EQ.STAR)  GO  TO  30 

0O000970 

IE  (II.GE.  BAXLR)  GO  TO  27 

00000980 

C... 

....PRINT  ERROR  HESSAGE  IE  EOE  NOT  POUND 

AFTER  INDEX  200. 

00000990 

BRITE  (6,6) 

00001000 

IE  (PRNT.NE.O)  BRITE  (7,6) 

00001010 

GO  TO  28 

00001020 

c.. . 

....PRINT  ERROR  HESSAGE  IE  HORE  TRAN  200 

LRUS  IN  FILE. 

00001030 

27 

BRITE  (6,2) 

00001040 

IE  (PRNT.NE.O)  BRITE  (7,2) 

000010  50 

28 

IERROR=IERRORa1 

00001060 

C 

00001070 

30 

RETURN 

00001080 

END 

00001090 

SUBROUTINE  ITAB4 

00001100 

C 

00001110 

**00001120 

c« 

SUBROUTINE  ITABU  PRINTS  OUT  TABLE  4 ON  UNIT  7 (LINE  PRINTER).  IT 

•00001130 

c* 

IS  BASICALLT  AN  ECHO  PRINT  OE  INPUT  UNIT 

14. 

*00001140 

c*** 

**00001150 

c 

00001160 

CORHON  /RD4/  I NO ( 200)  , LP NAHE  (200 , 24)  , L RPART  (2  00 , 1 2 ) , HC I (200)  , 

00001170 

♦ NTBI  (200)  ,N,PA  (200)  ,QPA  (200)  , QR  ( 200)  , RN  (200)  , 

00001180 

♦ UC  (200) 

00001190 

IN'EGER  OPA.OR 

00001200 

RFAL  NTBI 

00001210 

c 

00001220 

1 

FORHAT  (1H1,46X,29HINPUT  TABLF  4:  INPUTS  BX  LRU//'/) 

00001230 

C 00001210 

2 FORHAT  (1H1,40X,41HINPUT  TABLF  4;  IIIPOTS  BT  LRO  (CONTINUED)  ///)  00001250 

C 00001260 


-»•  r*  % » —V 


3 


PORRAT  (47X,6HNURBER,3I,9HNUHBBR  OP,  11X  , 8H  PR  A CT  ION  , 3X , 9HBEA  N TIRE 
21 , 9HN0HBER  OP/47X.18HOP  LR OS  R EDUNDA NT, 11 X ,9HU «IT  COST, 

► 9H  BETWEEN, 4 X.10HNEW  ASS ER-, 3X , 7 HRISS ION/5 B LR0,42X,7HIN  EAC 

■ ,9H  LRUS  IN,6X>4HUNIT,3X,8HCONSURED,3I,6HRAINT,,5X, 9HBLIBS  OR 

► 5X  , 8HCR  ITICAL/6H  IN  DEX  ,6  X , 1 2R  NONE  RCLATURE  , 91,  1 1 H P ART  NURBER, 

■ 8H  RADAR, 4X, 10HEACH  RADAR,3X, 4HCOST, 3X,1 8HIN  REPAIR  IICIDEN 

► 2H  TS,  2 1 ,22 H PI  EC E PARTS  I NDIC  ATOR/6  H ( INO)  , 4 IX,  5 H (QPA)  . 41, 

► «H(QR)  , 9X,4H(UC)  ,3X,4H(Rfl)  ,7X,6H(HTBI)  ,5X,4H(PA)  , 9 X ,5  H ( RCI)  /) 

PORHAT  <21,13.  3X,  24A1,  IX,  1 2A  1,  3X , I 3, 7X,  I 3.61,  P 8. 0,  3X,P5.  3,21, 
P10.0,5X,P6.2,  81,12) 


PRINT  OUT  TABLE  4 HEADINGS. 


LINCNT«0 
WRITE  <7 , 1 ) 
WRITE  (7,3) 


,00001270 
00001280 
H00001 290 
,00001300 
00001310 
,00001320 
00001330 
00001340 
00001350 
00001360 
00001370 
00001380 


THIS  DO-LOOP  PRINTS  OUT  THE  UNIT  14  DATA.  50  LINES  OP  DATA  ARE 
WRITTEN  BEPORE  THE  PRINTER  JURPS  TO  A NEW  PAGE.  TABLE  HEADINGS 
ARE  PRINTED  ON  EACH  NEB  PAGE. 


DO  25  1*1,  N 

IP  ( QPA  (I)  . EQ.  0)  GO  TO  25 

WRITE  (7,4)  I,  (LRNARE(I,J)  ,J*1,24),  (LRPART  ( I , J)  , J*  1,  12)  , 
► QPA (I)  ,QR(I)  ,UC(I)  ,RR(I)  ,HTBI  (I)  ,PA  (I)  ,NCI  (I) 

LINCNT*LINCNT*1 
IP  (LINCNT.LT.  50)  GO  TO  25 
WPITE  (7,2) 

WRITE  (7,3) 

LINCNT*0 

CONTINUE 

RETURN 

END 


•00001400 

*•00001410 

00001420 

00001430 

00001440 

00001450 

00001460 

*•00001470 

•00001480 

•00001490 

•00001500 

*•00001510 

00001520 

00001530 

00001540 

00001550 

00001560 

00001570 

00001580 

00001590 

00001600 

00001610 

00001620 

00001630 

00001640 

00001650 

00001660 


SUBROUTINE  BEND5  00000013 

C 00000020 

C**« ••••••••*••*•••••*••••*•••••••*•**••* •*•••*••••**••*••••••••••••••••000000 30 

C*  SUBROUTINE  RENDS  RENDS  IN  THE  SECOND  LRU  PILE  OPP  OP  INPUT  UNIT  *00000090 

C*  15.  ONE  HECOPD  IS  PEND  IN  FOP  ENCH  LRU  UP  TO  N MAXIMUM  OP  200  *00000050 

C*  LRUS  IN  THE  SYSTEM.  *00000060 

(;•••*••••*•••*•*•••••*•*•*••••••****••••• •••**••*••***•**•••••••••••••••00000070 

C OOOOOOBO 

COMMON  /CNTL/  EXIT , ITER, MNIPNT, P RNT, REDO , RER END  00000090 

INTEGER  EIIT, PENT .REDO, REREND  00000100 

C 00000110 

COMMON  /ERROR/  IEFROR, IVNRN  00000120 

C 00000110 

COMMON  /I  NIT/  COR FLO, HNXPN,HNXLR,MNXSE  000001*0 

C 00000150 

COMMON  /RD*/  INO  (200)  ,IFNNHP  (200,2*)  ,L8PNRT  (200,  12J  ,HCI  (200)  , 00000160 

♦ MTBI  (200)  ,N,PA  (200)  ,(}PA  (200)  ,0R(200)  ,RM  (200)  , 00000170 

♦ UC  ( 2 00)  00000180 

INTEGER  QPN.QR  00000190 

REAL  MTBI  00000200 

C 00000210 

COMMON  /RD5/  BCH  H (200)  , CBCH H (200)  ,CHH  (200)  , CR TS1  (200 ) .CRTS2  (200)  , 00000220 

♦ DBCHH(200)  ,DHH(200)  , DRTS 1 (200),  DPTS2  (200)  , 00000230 

♦ DRTS3  (200)  ,PPR  (200)  ,IMH  (200)  ,1*015(200)  ,N15,  000002*0 

♦ PNHH  (200)  , RIP  (200)  , RL  (200)  , RHH  (200)  , SMH  (200)  ,SRTS1  (200)  , 00000250 

♦ HOR1  (200)  ,BOP2  (200)  ,HOR3(200)  00000260 

RENL  IBM  00000270 

INTEGER  RL  00000280 

C 00000290 

DNTN  STNR/1H*/  00000300 

RENL  IMHX  00000310 

INTEGER  RLX  00000320 

C 00000330 

1 FORMAT  (N1,I3,  F3.  3,  19(P3.2|  ,51,13)  000003*0 

C 00000350 

2 FORMAT  (/* 8H  UNIT  15  ERROR:  LRU  INDEX  NUMBERS  HAYE  NOT  BEEN/  00000360 

♦ 17 1,** H INPUT  IN  THE  SAME  ORDER  FOR  URITS  1*  AND  15./  00000370 

♦ 171, 29HUNIT  15  LRU  INDEX  NUMBER  NAS  ,I3,1H.)  00000380 

C 00000390 

3 FORMAT  (/# 9H  UNIT  15  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/  00000*00 

♦ 17x, 37HMNXI MUM  NUMBER  OF  LRUS  HERE  REND  IN.  ) 00000*10 

C 00000920 

« FORMAT  (A1)  00000*30 

C 000009*0 

5 FORMAT  (/52H  UNIT  15  ERROR:  LARGEST  LRU  NUMBER  INPUT  OR  UNIT  1*  00000950 

♦ , 1 3H  IS  DIFFERENT/171, 36HTHNN  THE  LARGEST  LRU  NUMBER  INPUT  ON,  00000*60 

♦ 9 H UNIT  15.)  00000*70 

C 00000*80 

6 FORMAT  (/«8H  UNIT  15  ERROR;  INDEX  NUMBER  HAS  NOT  POSITIYE.  ) 00000*90 

C 00000500 

7 FORMAT  (/*9H  UNIT  15  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/  00000510 

♦ 17X, 37HMAXIMUM  LRU  INDEX  NUMBER  HAS  READ  IN.)  00000520 

C 00000530 

N1 5*0  000005*0 

C 00000550 

c*** •*••*•••*•••«•••••••••*•*••*•••••••••***«•••••• ••*•••••••••••••••**•00000560 

C*  THE  SECOND  LRU  FILE  IS  INPUT  IN  THIS  DO-LOOP.  AN  END-OP- PILE  IS  *00000570 

C*  DESIGNATED  BT  A STAR  (•)  IN  COLUMN  1 OF  THE  LAST  RECORD.  *00000580 

C***«* •••••••**••••• •*•••*•••**••••••••••**••••*••••*•••••••••••••••••••00000590 

C 00000600 

DO  25  11*1, MAX LR  00000610 

RIAD  (15,1)  C0L1.IN015  (II)  , FPRX  , PNMHX , R IPX  , IMHX,  RM  HI,  BCMHX,  00000620 

♦ SHHI,CBCNHX,CHHX,08CMHI,0MRX,5RTSlX,CRT5lX,  00000630 


86 


♦ WOR1  X,  DRTS 1 X,  CRTS  2 X,WOR2X»DRTS2X,WOR3I, DHTS3X, 

00000640 

♦ RLX 

00000650 

c 

00000660 

IP  (COL1.EQ.STAR)  GO  TO  30 

00000670 

I=IN015  (II) 

00000680 

c... 

....PRINT  ERROR  MESSAGE  IP  INDEX 

NOT  POSITITE. 

00000690 

IP  (I.GT.O)  GO  TO  29 

00000700 

> R IT  E ( 6,  6) 

00000710 

IP  (PRNT.NE.O)  WRITE(7,6) 

00000720 

I ERROR  = I ERROR  ♦ 1 

00000730 

GO  TO  25 

00000740 

c. . . 

....PRINT  ERROR  MESSAGE  IF  INDEX 

EXCEEDS  200. 

00000750 

20 

IF  (I  . LE  . MAX  LR)  GO  TO  21 

00000760 

WRITE  (6,7) 

00000770 

IP  (PRNT.NE.O)  WRITE  (7,7) 

00000780 

I ERROR  = I ERROR  ♦ 1 

00000790 

GO  TO  30 

00000800 

C 

00000810 

c*** 

**00000820 

c* 

IP  THE  LRUS  READ  IN  HERE  ARE  NOT 

INPUT  IN  THE 

EXACT  SAME  ORDER  AS 

•00000830 

c* 

THE  LRUS  ON  UNIT  14,  AN  ERROR  MESSAGE  IS  PRINTED  FOR  EACH  LRU  OUT 

•00000840 

c* 

OF  ORDER. 

*00000850 

c*** 

**00000860 

c 

00000870 

21 

IF  (INOIS(II)  .SQ.INO(IT))  GO 

TO  22 

00000880 

WRITE  (6,2)  IN015  (II) 

00000890 

IF  (PRNT.NE.O)  WRITE  (7,2) 

IN015(II) 

00000900 

IERROR=IERHOR»1 

00000910 

c 

00000920 

22 

N15=IN015  (II) 

00000930 

PPR(I)  = PPR  X 

00000940 

PA  HH  (I)  = PAMHX 

00000950 

RIP  ( I)  = R IPX 

00000960 

IMH  (I)  = I HH  X 

00000970 

RMH(I)  = RHHX 

00000980 

BCHH  (I)  = BCHHX 

00000990 

SHH(I)  = SHHX 

00001000 

CBCHH(I)  = CBCHHX 

00001010 

CHH(I)  = CHHX 

00001020 

DBCHH(I)  = DBCMHX 

00001030 

DM H ( I)  = DMHX 

00001040 

SRTS1  (I)  = SRTS1X 

00001050 

CRTS  1(1)  = CRTS  IX 

00001060 

WOR1  (I)  = WOR1X 

00001070 

DRTS  1(1)  = DRTS  1 X 

00001080 

CPTS2  (I)  = CRTS2X 

00001090 

WOR2  (I)  = WOR2X 

00001100 

DRTS2  (I)  = DRTS2X 

09001110 

WOR  3(1)  = WOR3X 

00001120 

DRTS3  (I)  * D RTS 3 X 

00001130 

RL(I>  = RLX 

00001140 

IF  (N1S.EQ.HAXLR)  GO  TO  26 

00001150 

C 

00001160 

25 

CONTINUE 

00001170 

C 

00001180 

26 

READ  (15,4)  COL1 

00001190 

IF  (COL1.EQ.STAR)  GO  TO  3C 

00001200 

IF  (II.GE.  HAXLR)  GO  TO  27 

00001210 

C... 

AFTER  INDEX 

200. 

00001220 

WRITE  (6,7) 

00001230 

IF  (PRNT.NE.O)  WRITE  (7,7) 

00001240 

GO  TO  28 

00001250 

C... 

THAN  200  LRUS 

IN  FILE. 

00001260 

87 


27 

WRITE  (6,3) 

00001270 

< 

* 

IP  (rRNT.NE.O)  WRITE  (7,3) 

00001280 

28 

IEPF0B*IERR0R*1 

00001290 

c 

00001300 

••00001310 

c* 

N15  PEEPS  TRUCK  OF  THE  LARGEST  LRU  NUHBER  PROH  UNIT  15.  IF  THIS  IS 

*00001320 

C* 

HOT  THE  SAKE  AS  H (LARGEST  LRO  NUHBER  FROH  UNIT  14),  AN  ERROR 

*0000 1330 

c* 

HESSAGE  IS  PRINTED  OUT. 

•00001340 

••00001350 

c 

00001360 

3P 

IF  (N.E0.N15)  GO  TO  40 

00001370 

WRITE  (6,5) 

00001380 

IF  (PRNT.NE.O)  RPITE  (7,6) 

00001390 

IERROR= TERROR* 1 

00001400 

J 

c 

00001410 

1 

40 

RETURN 

00001420 

END 

00001430 

1 

SUBROUTINE  ITAB5 

00001440 

C 

00001450 

1 

c**< 

••00001460 

J 

c* 

SUBROUTINE  ITA85  PRINTS  OUT  TABLE  5 PART  1 AND  TABLE  5 PART  2 ON 

•00001470 

c* 

UNIT  7 (LINE  PRINTER).  IT  IS  BASICALLY  ON  ECHO  PRINT  OF  INPUT 

•00001480 

1 

c* 

UNIT  15. 

•00001490 

**00001500 

c 

00001510 

COHHON  /INIT/  CONPLO, HAIFA, HAXLR,  HAXSE 

00001520 

c 

00001530 

COHHON  /RD4  / I NO  ( 200)  , LRNAHP  <200 , 2 4)  , LB  PA  RT  (2  DO,  12)  , HCI  (290)  , 

00001540 

♦ HTBI  (200)  ,N,PA  (200)  ,QPA  (200)  , OR  (200)  , BN  (200)  , 

00001550 

♦ UC  ( 200) 

90001560 

INTEGER  OPA.QR 

00001570 

REAL  HTBI 

00001580 

c 

00001590 

COHHON  /RD5/  BCHH  (2  00)  ,CBCHH  (200)  ,CHH  ( 200)  , CRTS  1 (200)  ,CRT52(200) 

, 00001600 

♦ DBCH  H (200)  , DHH  (200)  ,DRTS1  (200)  ,DRTS2  (200)  , 

0000  1610 

♦ DRTS  3 (200 ) , PPR  (200)  ,IHH(200)  ,IN015(200)  ,N15, 

00001620 

♦ P AH H ( 200)  ,RIP  (20C)  , RL  (200)  , BHH  (2  00)  ,SHH(2  00)  , SRTS 1 (200) 

, 00001630 

♦ WOR1  (200)  ,WOR2  (200)  ,WOR3  (200) 

00001640 

1 

REAL  IHH 

00001650 

INTEGER  RL 

00001660 

c 

00001670 

1 

FORHAT  ( 1H 1, 37 I,45HINP0T  TABLE  5 PART  1:  HAINTENANCE  INPUTS  BY 

, 00001680 

♦ 3HLRU///) 

00001690 

c 

00001700 

2 

FORHAT  (1H1 ,31 I.45HINPOT  TABLE  5 PART  1:  HAINTENANCE  INPUTS  BY 

, 00001710 

♦ 15HLRU  (CONTINUED)///) 

00001720 

c 

00001730 

3 

FORHAT  (15X,7HAVERAGE, 121, 2 5H AVER  AGE  AYG.  HAN-  AVERAGE, 

00091740 

•1 

♦ 41 , 7H AV  BRAG E, 

00001750 

♦ 4 I,  7H  AVER  AGE,  4 X.7HA  V ER  AGE,  4 1 , 7 H A V ERAGE,  41 , 7 HAV  ER  A GE/ 

00001760 

j 

♦ 15X.18HH IN -HOURS  FRACTION, 28H  HAN-HRS  HRS  FAULT  HAN-HOURS, 

00001770 

1 

j 

♦ 2X,9HHAN-HOUBS,11H  HA  N-HOU  RS  , 1 1 H HAN-HDU  RS,  1 1 H HAN-HOUBS, 

00001780 

♦ 1 1 H HAN-HOURS/8X,5HFALSE,2X,9HPOR  PREP-.9H  FAILURES, ll. 

00001790 

♦ 6H FOB  I N, 2X , 8H ISOLATE, , 2X , 8HFOR  SITE, 3 X.8HFOR  SITE,3X, 

00001800 

♦ 7H FOB  CHF, 

00001810 

A 

♦ 4X.7HFOR  CH  F, 4 X, 9HPOR  DEPOT, 2X,9HFOR  DEPOT/5H  LRU , 3 X , 

9000  1820 

i 

♦ 4HPULL,3I,9HARATION  6,9H  REPAIRED.6H  PLACE, 3X, 8HB EPLACE, , 2X, 

00001830 

,1 

♦ 10HSHOP  BENCH, 11H  CORRECTIVE, 1 1H  SHOP  BENCH, 11H  CORRECTIVE, 

00001840 

♦ 1 1 H SHOP  BENCH, 11H  COPRECTI VE/6H  INDEX, 6H  RATE, 

00001850 

♦ 3X,6HACCESS,4X,8HIN  TLACE,7H  REPAIR, 17H  6 VERIFY  CHECK, 

00001860 

! 

♦ 6X,6HHAINT.,6X , 5HCHECK ,6X,6HHAINT.,5X, 5HCH  ECK ,6 X,6HHAINT./ 

00001870 

* 

♦ 6H  (INO)  ,2X,5H  (FPR)  ,2X,6H  (PAHH)  ,4X,5H  (RIP)  , 4X,5H  (IHH)  , 31, 

00001880 

♦ 6H(RHH)  ,5X,  6H  (BCHH)  ,5X,5H  (SHH)  ,6X,7H  (CBCHH)  ,4X,5H  (CHH)  ,6X, 

00001890 

i 

j 

i J 

88 

noonn  n n n n n n n nnnon 


i 


i 


♦ 7H(DBCMH)  ,4X,5H(DNH)/) 

FORMAT  (2X,I3,  3X, F5.3.3X,P5.3.5X.P5.3,4X,F5.3,3X,F5.3,5X.F5.3,6I 

♦ P5.3.6X.P5. 3.6X.F5.  3,6X,P5.  3,6X,  P5.  3) 

FORMAT  (1H1 ,36X,46HINPUT  TABLE  5 PART  2:  REPAIR  LEVEL  INPUTS  BI 

♦ 3HLR0///) 

PORHAT  (1H1, 36X.46HINPUT  TABLE  5 PART  2:  REPAIR  LEVEL  INPUTS  BI 

♦ 15HLRU  (CONTINUED)///) 

PORHAT  (9X.39H IP  SITE  REPAIRABLE ,41, 

♦ 29H IP  CMP  REPAIRABLE ,4X,19HIP  DEPOT  REPAIRABLE/ 

♦ 25X,6H(RL  = 1)  , 32X,6H(RL*2)  ,22 X ,6H (RL=3) /9X , 8HFR ACTI ON, 

♦ 10  H FRACTION, 10H  PRACTION, 11H  PRACT ION , 41, 8 HER ACTION , 

♦ 10  H FRACTION, 11H  PR  ACTION , 4X , 8HP RACTI ON , 1 1H  FRACTION/ 

♦ 9X  , 8HPA  ILUR  ES,  10H  PAIL  OR  ES , 1 OH  FAILURES,  11H  PAILURES,4X, 

♦ 8HPAI LURES, 10H  FAILURES, 11H  PAILU  B ES,  4X  , 8 HPA IL  OB  ES , 

♦ 1 1 H PAILUR  ES/SH  LRU,4X,8HREPAIRED,10H  REPAIRED, 

♦ 1 1 H CONDEMNED, 10H  REPAI RED, 4X , 8HREP AIRED, 1 1 H CONDEMNED, 

♦ 1 0 H REPAIRED, 4X.9HCO NDEHNED,  108  REPAIRED, 4X , 6HR EP A IR/ 

♦ 6 H INDEX, 3X.7HAT  SITE,3X,6HAT  CHF,4X,6HAT  CMF.5X, 

♦ PHAT  DEPOT, 4X,6HAT  CHP,4X,6HAT  CHP,5I,8HAT  DEPOT, 4X, 

♦ 8H  AT  DEPOT,  3X,  8HAT  DEPOT,  4X  , 5H  LE  VEL/6H  (I  NO)  ,3  X , 7 H ( SRTS1 ) , 

♦ 3 X , 7H  (C RTS1 ) ,3  X,6H  ( VOR 1)  , 51 , 7 H ( DHTS 1 ) , 5X , 7 H (CRTS2 ) , 3 X, 

♦ 6R  (HOR2  ) , 5X  ,7  H (DRTS2)  , 5 1 , 6H  (ROB 3 ) , 51 , 7 H (DRTS3)  , 51 , 4 H ( R L)  /) 

PORHAT  (2X,I3,5X, P5.3,5X,P5. 3,5X,P5. 3.6X.P5.  3,7I,P5. 3,5X,F5.3, 

♦ 6X,F5.3,7l,P5. 3,7X,P5.3,5X,I3) 


PRINT  OUT  TABLE  5 PART  1 HEADINGS. 


LINCNT=0 
WRITE  (7,1) 
WRITE  (7,3) 


* THIS  DO-LOOP  PRINTS  OUT  HALF  OP  THE  UNIT  15  INPUT  DATA.  50  LINES 

* OP  DATA  ARE  WRITTEN  BEFORE  THE  PRINTER  JUMPS  TO  A NEB  PAGE.  TABLE 

* READINGS  ARE  PRINTED  ON  EACH  NEW  PAGE. 


DO  25  1*1,  N15 

IP  (QPA(I)  ■ EQ • 0)  GO  TO  25 

WRITE  (7,4)  I,FPR  (I)  , PA  HH  (I)  , R IP  ( I)  , IHH(I)  , RMH(I)  , BCM  H ( I)  , 
♦ SHH(I)  , CBCM  H ( I)  , CM  H ( I)  , DBCMH  (I)  ,DMH(I) 

LIN  CNT*L  INCNT*  1 
IP  (LINCNT.LT. 50)  GO  TO  25 
WRI^E  (7,2) 

WRITE  (7,3) 

LI NC  NT*0 
25  CONTINUE 


• PRINT  OUT  "ABLE  5 PART  2 HEADINGS. 


LI NCNT  *0 
WRITE  (7,5) 
WRITE  (7,7) 


00001900 

00001910 

00001920 

00001930 

00001940 

,00001950 

00001960 

00001970 

,00001980 

00001990 

00002000 

00002010 

00002020 

00002030 

00002040 

00002050 

00002060 

00002070 

00002080 

00002090 

00002100 

00002110 

00002120 

00002130 

00002140 

00002150 

00002160 

00002170 

00002180 

00002190 

>*00002200 

•00002210 

>•00002220 

00002230 

00002240 

00002250 

00002260 

00002270 

>*00002280 

•00002290 

*00002300 

*00002310 

>•00002320 

00002330 

00002340 

00002350 

00002360 

00002370 

00002380 

00002390 

00002400 

00002410 

00002420 

00002430 

00002440 

00002450 

>•00002460 

•00002470 

>•00002480 

00002490 

00002500 

00002510 

00002520 


i I ■ 
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o n n n o n 


THIS  DO-LOOP  PRINTS  OOT  THS  SECOND  HALE  OP  THE  UNIT  15  INPUT  DATA 
ONCE  AGAIN,  50  LINES  OP  DATA  ARE  PRINTED  PER  PAGE. 


DO  50  1*1, N15 

IP  ( QP  A ( I)  . EQ.O)  GO  TO  50 

RRITB  (7,8)  I.SRTS1  (I)  .CRTS1  (I).NORI(I)  ,DRTS1(I), 

♦ CRTS  2 (I)  ,ROR2  (I),  DRTS2  (I),  NOR  3 (I)  ,DRT33(t)  ,RL(I) 

C 

LINCNT=LINCNT*1 
IP  (LINCNT.LT. 50)  GO  TO  50 
NRITE  (7,6) 

NRITE  (7,7) 

LINC  NT*0 
50  CONTINUE 
C 

RETURN 

END 


000025)0 

•00002540 

•00002550 

*00002560 

•00002570 

00002580 

00002590 

00002600 

00002610 

00002620 

00002630 

00002640 

00002650 

00002660 

00002670 

00002680 

00002690 

00002700 

00002710 

00002720 
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1 


I 


; 


SUBROUTINE  ERR  CH  K 


c* 

c* 

THIS 

c* 

INPUT 

c* 

1- 

c* 

2- 

c* 

3- 

c* 

4- 

c* 

5- 

c* 

6- 

c* 

c* 

c* 

c* 

7- 

c* 

c* 

8- 

c* 

c* 

9- 

C * 

C 


C 

C 

C 


SUBROUTINE  ERRCRK 

SOBROUTIMB  PERPORHS  SOBE  ADDITIONAL  ERROR  CHECKS  ON  THE 
DATA.  THE  POLLOHING  ARE  ERRORS: 

RL  < 0 OR  RL  > 3 POR  AN  LRU. 

SRTS1  ♦ CRTS1  » WOR1  ♦ DRTS1  1 POR  LRU  WITH  RL  OP  1. 

CRTS2  ♦ NOR 2 ♦ DRTS2  -=  1 POR  LRU  WITH  RL  OP  2. 

NOR3  ♦ DRTS3  -*  1 POR  LRU  R XT H RL  OF  3. 

HTBI  = 0 POR  AN  LRU. 

SHTBI  =0  OR 

(1. /SHTBI)  < SUB  (QPA  (I)  /HTBI(I)  ,1*1  , N)  CAUSES  A EARNING 
HESSAGE  AND  CAUSES  SHTBI  TO  BE  ASSIGNED  A DEFAULT  VALUE  OP 
1./  (SUB(QPA(I) /HTBI(I)  ,1*1, N)  . 

CP  HI  = C CAUSES  A EARNING  HESSAGE  AND  AN  ASSUHED  INFINITE 
VALUE. 

CONF  < CONPLO  CAUSES  A EARNING  HESSAGE  AND  A DEFAULT  VALUE 
POR  CON  P OP  CONPLO  (CONFLO  IF  SET  TO  0.8U134  IN  INITAL). 

NSP  > 3 CAUSES  A EARNING  HESSAGE  AND  A DEFAULT  VALUE  OP  3. 


CO H HON  /CNTL/  EXIT, ITER , HA XPHT ,P RNT , REDO, REREAD 
INTEGER  EXIT, PRNT, REDO, REREAD 

CCHHON  /ERROR/  IERROR , IEARN 

COHHON  /IN  IT/  CONPLO,  H AXP  A , H AXLR  , HA  XSE 

COHHON  /RD 1/  ADCH,ADPH,B,CAA, CADRE, CCH P,CDR,CDEH ,CLR , CONF, CPHI, 

♦ CPHP,CPET,CRCT,  DA  A,  DLR,  DRCT,  DS, 

♦ P AC ( 10)  , PCS ,PSD,H,IHC,K,H,NCRS,BIHRS, 

♦ NCP,  NDP,NSP,OST,PIUP,  PHE,  PPRS,  PRODX,  REFUHB,  RHC, 

♦ SA, SAA, SHTBI, SOSI,SPRS,SRCT,SE, SEP AC, 

♦ ?C,TCCAD,TE,TR,TB,TBCAD,VAL,XUC, TOH , X SCAD, IS LR 
INTEGER  CADRE 

RFAL  IHC,  K , HCRS,  H XHFS 

COHHON  /RD4/  INO  ( 200)  , LR  N AH  E (200 , 24)  , LR  PART  ( 2 00 , 1 2)  , HCI  (200)  , 

♦ HTBI  (200)  ,N,  PA  (200)  , QPA  (200)  ,QR  (2  00)  , RH  (200)  , 

♦ UC  (200 ) 

INTEGER  QPA.QR 

REAL  HTBI 

COHHON  /RD5/  BCHH  (200)  .CBCHH  (200)  , CH H ( 200 ),  CRTS  1 (200)  ,CRTS2  (200)  , 

♦ DBCH  H(20C),DNH(200)  ,DRTS1  (20  0)  ,DRTS2(200)  , 

♦ DRTS  3 (200)  , PPR  ( 200)  , IHH  (200)  ,INO15  (200)  ,N15, 

♦ PAHH  (200)  ,RIP(2C0)  , RL  (200)  , RHH(200)  ,SHH(200)  , SRTS1  (200)  , 

♦ WOR1  (200)  ,BOR2  (200)  ,EOR3  (200) 

REAL  IHH 

INTEGER  RL 


2 PORHAT  (/44H  INPUT  ERROR:  ILLEGAL  REPAIR  LEVEL  HAS  BEEN/ 

♦ 17X,25HSPECIFIED  POR  LRU  N'THBBR  ,13,  1H.) 

3 PORHAT  (/50H  INPUT  ERROR:  FOR  RL  OP  1,  SRTS1  ♦ CRTS  1 » EOR1  ♦, 

♦ 6H  DRTS1/17X.36HDOES  NOT  ADD  UP  TO  1 POR  LRU  NUHBER  ,I3,1H.) 

4 PORHAT  (/48H  INPUT  FRROP : POR  RL  OP  2,  CPTS2  ♦ BOR2  ♦ DRTS 2/ 

♦ 17X.36HDOES  NOT  ADD  OP  TO  1 FOR  LRU  NUHBER  ,I3,1H.) 

5 PORHAT  ( /4 OH  INPUT  ERROR:  POR  RL  OP  3,  EOR3  ♦ DRTS3/ 

♦ 17X , 36HDOES  NOT  ADD  UP  TO  1 POR  LRn  NUHBER  ,I3,1H.) 

6 FORHAT  (/50H  INPUT  ERROR:  HTBI  HAS  BEEN  INPUT  AS  0.0  POR  LRU  , 

♦ 7HNUHBER  ,13, IB.) 

8 PORHAT  (1X/47H  EARNING.  INVALID  SHTBI.  DEFAULTS  TO  SHTBI*, 


00000010 

00000020 

•00000030 

•00000040 

•00000050 

•00000060 

•00070070 

•00000080 

•00000090 

•00000100 

•00000110 

•00000120 

•00000130 

•00000140 

•00000150 

•00000160 

•00000170 

•00000180 

•00000190 

•00000200 

'•00000210 

00000220 

00000230 

00000240 

00000250 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

00000380 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

00000480 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00000550 

00000560 

00000570 

00000580 

00000590 

00000600 

00000610 

00000620 

00000630 
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♦ F12.2)  00000640 

11  FORHAT  (/4«H  WARNING:  CPHI  = 0.  INFINITE  CPHI  ASSURED.)  90000650 

12  FORBAT  (/*4H  WARNING:  CONF  TOO  S BALL.  DEFAULT  TO  CONP=,P10.5)  00000660 

13  FORBAT  (/43H  WARNING:  NSP  TOO  LARGE.  DEFAULTS  TO  NSP-,13)  00000670 

C 00000680 

T EH  1 * 0.  00000690 

XBA  X = 0.  00000700 

c 00000710 

(;•••••••••••*•••••••••*•••••••••••••••*•••••••••*•••••*••••• •••••*••••••00000720 

C*  LOOP  ON  LRUS  TO  PERFORH  VARIOUS  ERROR  CHECKS:  *00000730 

C*  RL.SRTS  UCRTSUVOR  1 ♦ DRTS  1 , CR  TS2*  WOR2*DRTS2  , WOR3  *DRTS3  , BTBI . *000007  40 

U **•**••••*«•**•*****•*•*••***•*••••*•**••****•*•••••*•••*•**••••*••••*• 00000750 

C 00000760 

DO  32  1=1  ,N  00000770 

IF  (QPA (I) . EQ.O)  GO  TO  32  00000780 

C 00000790 

••••••*••••••*•••*••••*•••••••••••••••••••*•••••••••••••••••*•*•••00000800 

C*  DEPENDING  ON  THE  REPAIR  LETEL  FOR  THE  CURRENT  LRU,  CONTROL  IS  *00000810 

C*  PASSED  TO  ONE  OF  FOUR  SECTIONS  OF  CODE.  IN  THE  EVENT  OF  AN  IL-  *00000820 

C*  LEGAL  REPAIR  LEVEL  (LESS  THAN  0 OR  GREATER  THAN  3)  AN  BRROR  BBS-  *00000830 
C*  SAGE  IS  PRINTED.  *00000840 

C*»* •••••••••*•• ••••••••••••••••*••*••*••*•••**••*••••••••*••••••••*••••00000850 

c 00000860 

IF  (RL  (I>  . EQ.O)  GO  TO  24  00000870 

IF  (RL(I).EQ.I)  GO  TO  21  00000880 

IF  (RL  (I ) . EQ . 2 ) GO  TO  22  00000890 

IF  (RL(I).EQ.3)  GO  TO  23  00000900 

WRITE  (6,2)  I 00000910 

IF  (PR NT, N E. 0)  WRITE  (7,2)  I 00000920 

I E RROR=IERROR* 1 00000930 

GO  TO  24  90000940 

C 00000950 

C**« •»••**•*•*•••••*••• •*••*••••••••••••••••••••••*•••••••*•**••*•••**••00000960 

C*  FOR  RL*1 , SRTSI(I),  CRTS1  (I)  , WORl  (I)  , AND  DRTSI(I)  HOST  ADD  UP  *00000970 

C*  TO  1.  IF  NOT,  AN  ERROR  HESSAGE  IS  PRINTED.  *00000980 

C******* •••**•••*•••*****•••******•*•******•••*•••*•****••••*•••**•• •••*00 000990 

C»  00001000 

21  T 1 = SRTSI(I)  ♦ CRTS  1(1)  ♦ WORl  (I)  ♦ DRTSI(I)  00001010 

IF  (RL  (I)  .EQ.  1 . AND.T1.GE.  .99999.  AND. T1.  LE.  1 .00001)  GO  TO  24  00001020 

WRITE  (6,3)  I 00001030 

IF  (PRNT.NE.O)  WRITE  (7,3)  T 00001040 

I E R80R*I ERROR* 1 00001050 

GO  TO  24  ‘ 00001060 

C 00001070 

••••*••••••*••*•••***••*•••••••••••••*•••••**•••*••••••• ••••••••••••0000 1080 

C*  FOR  RL=2,  CRTS2  (I)  , WOR2(I),  AND  DRTS2(I)  RUST  ADD  IIP  TO  1.  IF  *00001090 

C*  NOT,  AN  ERROR  HESSAGE  IS  PRINTED.  *00001100 

c*** •**•••••*••••••••••••••••••••••••••••••••••••••••••••• •••••*•*••••••0000  11  10 

C 00001120 

22  T2  = CRTS2  (I)  ♦ WOR2  (I)  ♦ DRTS2(I)  00001130 

IF  (RL  (I)  . EQ.  2.  AND.  T2.GE.  .99999.  AND.T2.LE.  1.00001)  GO  TO  24  00001140 

WRITE  (6,4)  I 00001150 

IF  (PRNT.NE.O)  WRITE  (7,4)  I 00001160 

IERROR=IERROR*1  00001170 

GO  TO  24  00001180 

C 00001190 

c ••••••••••••*•••••• ••••••••••*••*•••••••••*•••••••••••••*••••••*•••••••00001200 

C*  FOR  RL=  3,  WOR  3 (I ) AND  DRTSI(I)  BUST  ADD  UP  TO  1.  IF  NOT,  AN  ERROR  *00001210 
C*  HESSAGE  IS  PRINTED.  *00001220 

C*** •••*••****•*'•**••***•••••••***•••****•**•***•*•**•**• ••*•••***•*•*•00001230 

C 00001240 

23  T 3 = WOR  3(1)  ♦ DRTS 3 (I)  00001250 

IF  (RL(I)  .EO.  3.  AND. T3.GE. . 99999.  AND. T3.LE.1 . 00001)  GO  TO  24  00001260 
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WRITE  (6,5)  I 

00001270 

IP  (PRUT.  HE.  7)  WRITE  (7,6)  I 

00001280 

IERR0R-IERR0R*1 

00001290 

24 

COMTIROE 

00001300 

C 

00001310 

c+*t 

***00001320 

c* 

IP  ART  HTBI (I)  IS  IRPUT  AS  0.0,  AR  ERROR 

HESSAGE  IS 

PRINTED  OOT, 

•00001330 

c* 

ARD  SKIP  THE  POLLOWIRG  ERROR  CHECK  ARD  SOHHATION. 

*00001340 

c**< 

*•*00001350 

c 

00001360 

IP  (HTBI(I)  .GT. 0.001)  GO  TO  26 

00001370 

HRITE  (6,6)  I 

00001380 

IP  (PRRT.NE.0)  WRITE  (7,6)  I 

00001390 

IEBROH=IERROR*1 

00001400 

GO  TO  32 

00001410 

25 

CONTINUE 

00001420 

C 

0000  1430 

c**< 

•••00001440 

c* 

SET  T EH  1 TO  SUH  (QPA  (I) /HTBI  (I)  ,1  =1  , N)  . 

•00001450 

c**< 

>••00001460 

c 

00001470 

TEH  1 = TEH  1 ♦ ( Q P A ( I ) / HTBI(I)| 

00001480 

32 

CORTIROE 

00001490 

C 

00001500 

c**< 

*••00001510 

c* 

ERD  OP  LOOP  OR  LRUS.  ROW  CHECK  VARIOUS 

SCALARS  FOR 

ERRORS: 

•00001520 

c* 

SHTBI, CPHI, CORE, RSP 

•00001530 

C**< 

**•00001540 

c 

00001550 

IP  (SHTBI.GT. 0.00001)  TEH2  • (1./  SRTBI) 

00001560 

IP  (TEH2.GE.TEH1. ARD. SHTBI.GT. 0.00001) 

GO  TO  33 

00001570 

SHTBI  = 1./  TEH  1 

00001580 

RRITE(6, 8)  SHTBI 

00001590 

IP  (PRRT.RE.O)  WRITE  (7  , H ) SHTBI 

00001600 

IWARR  » IWARR  ♦ 1 

00001610 

33 

CORTIRflE 

00001620 

c 

00001630 

c 

00001640 

IP  (CPHI.GT. 0.00001)  GO  TO  16 

00001650 

HRITE  (6, 11) 

00001660 

IP  (PRRT.RE.O)  RR  ITE  (7,  11) 

00001670 

IWARR  * IWARR  ♦ 1 

00001680 

16 

CORTIROE 

00001690 

C 

00001700 

IP  (CORP.GE.COWPLO)  GO  TO  37 

00001710 

CORP  = COR  PLO 

00001720 

WRITE (6,12)  CORP 

00001730 

IP  (PRRT.RE.O)  RR  ITE  (7,  12)  CORP 

00001740 

IWARR  * IWARR  ♦ 1 

00001750 

37 

CORTIROE 

00001760 

C 

00001770 

IP  (RSP.LE.1)  GO  TO  38 

00001780 

RSP  « 1 

00001790 

WRITE  (6,13)  RSP 

00001800 

IP  (PRRT.RE.O)  WR  ITE  (7,13)  RSP 

00001810 

IWARR  * IWARR  ♦ 1 

00001820 

38 

CORTIROE 

00001830 

C 

00001840 

RETORR 

00001850 

ERD 

00001860 

SOBROOTIRE  AOXII.1 

00001870 

C 

00001880 

>•*00001890 

noon 


C*  SUBROUTINE  AUXIL1 

THIS  SUBROUTINE  CALCULATES  THE  FOLLOBING  AUZILI ART  VARIABLES: 
CCOND(I)  ,COND(I)  .CRTS  (I)  , DCOND  (I)  . DRTS  (I)  .SNRTS(I)  .SRTS(I)  ,NB(I) 


C0530S  /RDV  ISO(200)  ,LRNAHE(2O0 ,2*)  ,LRPART(200,  12)  .NCI  (200)  , 

♦ HTBI  (200)  .N, PA  (200)  ,gPA  (200)  ,0R  (200)  ,RH  (200)  , 

♦ UC  (200) 

INTEGER  QPA.QR 

REAL  HTBI 

CONNOR  /RD5/  BCHH  (200)  .CBCBH  (200)  , CHH (200) , CRTS1  (200)  .CRTS2  (200) 

♦ DBCHH  (200)  ,DHH  (200)  .DRTS  1 (200)  , DBTS2(200)  , 

♦ DRTS  3 ( 200)  , PPR  (200)  ,IHH(200(  .IN015  (200)  ,N15, 

♦ PAHH  (200)  .RIP  (200)  . RL  (200)  . RHH  (200)  , SflH  (200)  . SRTS1  (200) 

♦ BOR1  (200)  ,NOR2  (200)  .NOR3(200) 

REAL  IHH 

INTEGER  RL 

CONNON  /AUX1  / CCOND  (200)  ,COND(200)  .CRTS  (200)  . DCOND  (200)  , 

♦ DRTS  (200)  ,SNRTS(200)  ,SHTS(200)  , NR  (200) 

DO  5 1*1,  N 

IF  (QPA(I)  .EQ.O)  GO  TO  5 
IT  (RL(I).NE.O)  GO  TO  1 
COND(I)  * 1. 

SRTS(I)  » 0. 

CRTS  (I)  • 0. 

CCOND(I)  = 0. 

DCOND  (I)  * 0. 

DRTS  (I)  * 0. 

GO  TO  * 

1 IF  (RL  (I)  .BE.  1)  GO  TO  2 

CORD  (I)  * 0. 

SRTS(I)  - SRTSI(I) 

CRTS  (I)  * CRTS1  (I) 

CCOND  ( I)  > NOR  1 (I) 

DCOND  (I)  * 0. 

DRTS  (I)  » DRTS1  (I) 

GO  TO  # 

2 IF  (RL  (I ) . NE . 2)  GO  TO  1 

CORD ( I)  * 0. 

SRTS(I)  =»  0. 

CRTS  (I)  » CRTS2  (I) 

CCOND  (I)  = NO R2  (I ) 

DCOND(I)  * 0. 

DRTS  (I)  * DPTS2  (I) 

GO. TO  « 

3 CONTINUE 

COND(I)  * C. 

SRTS(I)  * 0. 

CRTS  (I)  * 0. 

CCOND  (I)  - 0. 

DCOND  (I)  * NOR  3 ( I) 

DRTS  (I)  * DRTS3  (I) 

« CONTINUE 

SNRTS(T)  ■ 1.  - SRTS  (I)  - CORD  (I) 

N R ( I)  = CORD  (I)  ♦ CCOND  (I)  ♦ DCOND  (I) 

5 CONTINUE 

RETURN 

END 

SUBROUTINE  AUXIL2 


•00001900 
•00001910 
•00001920 
••00001930 
000019*0 
00001950 
00001960 
00001970 
00001980 
00001990 
00002000 
. 00002010 
00002020 
000020  30 
, 000020*0 
00002050 
00002060 
00002070 
00002080 
00002090 
00002100 
00002110 
00002120 
00002130 
000021*0 
00002150 
00002160 
00002170 
00002180 
00002190 
00002200 
00002210 
00002220 
00002230 
000022*0 
00002250 
00002260 
00002270 
00002280 
00002290 
00002300 
00002310 
00002320 
00002330 
000023*0 
00002350 
00002360 
00002370 
00002380 
00002390 
00002*00 
00002*10 
00002*20 
00002*30 
000024*0 
00002*50 
00002*60 
00002*70 
00002*80 
00002*90 
00002500 
00002510 
00002520 
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c 

c* 

c* 

c* 

c* 

C*’ 

c 


c 


c 


c 

c 


5 

c 


c 

c* 

c» 

c* 

c* 

c* 

c 


c 


c 


SUBROUTINE  AUXIL2 

THIS  SUBROUTINE  CALCULATES  THE  HOLLOWING  A U II  LI  ART  TARIABLES: 
TFR(I)  ,WPR  (I) 


COHHON  /RD1/  ADCH.ADPH.B.CAA, CADRE, CCHP, COR, CDWH.CLR,  CONF,  CPH  I, 

♦ CPHP  , CPWT ,CR  CT, DA  A , DLR , DRCT,  DS , 

♦ PAC  (10)  .PCS.PSD.H.IHC.K.H,  HCRS.HXHRS, 

♦ NCP,*DP,NSP,OST,PIUP,PHP,PPRS,PRODX,REFURB,RNC, 

♦ SA.SAA.SHTBI.SOSI.SPRS.SRCT.SN.SRFAC, 

♦ TC.TCCAD.TE.TR.TW.TRCAD.VAL.XUC.TOH.TSCAD.TSLR 
INTEGER  CADRE 

REAL  IHC.K, HCRS.HXHRS 

COHHON  /RDtt/  INO(200)  , LRNAHE  (203 ,2»)  .LRPART  (200,  12),HCI  (200)  , 

♦ HTBI  (200)  ,1  ,PA  (200)  ,QPA  (200)  ,QR  (200)  , RH  (200)  , 

♦ OC  ( 200) 

INTEGEB  QPA.QR 

REAL  HTBI 

COHHON  /RD5/  BCHH(200)  ,CBCHH(200)  ,CHH  (200)  .CRTS1  (200)  ,CRTS2(200)  , 

♦ DBCHH  (200 ) , DHH  (200)  , DRTS 1 (200)  , DBTS2  (200)  , 

♦ DRTS 3 (200)  ,PPR  (200)  ,IHH  (200)  ,INO15(200)  ,N15, 

♦ P AHH  ( 200)  .RIP  (200)  ,RL  (2  00)  , RHH  (200)  , SHH  (2  00  ) , SRTS 1 (200)  , 

♦ WOH1  (200)  ,WOR2  (200)  ,WOR3(200) 

REAL  IHH 

INTEGER  RL 

COHHON  /AUX2/  TPR  (200)  ,WPB(200) 

DO  5 I *1  , N 

IP  (QPA(I)  . EQ . 0 ) GO  TO  S 

TPR  (I)  * (PLOAT(H)  * TOH  • X * FLOAT  (QPA  (I)  ) 

♦ * (1.  - RIP(I)  ) ) / HTBI(I) 

WFR  (I)  » TPR  (I)  / 52.18 

CONTINUE 

RETURN 

END 

SUBROUTINE  AUXIL3 


SUBROUTINE  AUXIL3 

THIS  SUBROUTINE  CALCULATES  THE  FOLLOWING  AUIXLIARI  TARIABLES: 
CCLH  (I)  , DC LH  (I)  , DLH 


COHHON  /RD«/  INO  (20C)  .LRNAHE  (200, 2*)  ,LRPART(200,  12)  ,HCI  (200)  , 

♦ HTBI  (200)  ,N  ,PA  (230)  ,QPA  (200)  ,QR  (200)  , RH  (200)  , 

♦ UC(2C0) 

INTEGFR  QPA.QR 

REAL  HTBI 

COHHON  /RD5/  BCHH  (200)  .CBCHH  (203)  , CHH  (200 ),  CRTS  1 (200)  .CRTS2  (200)  , 

♦ DBCH  H (200), DHH  (200)  ,DRTS1(20«)  ,DRTS2(200)  , 

♦ DRTS  3 ( 200)  , PPR  (200)  , IHH  (200)  ,IN015  (200)  ,N15, 

♦ P AHH  (200)  .RIP  (200)  , RL  (200)  , RHH  (200)  , SHH(20C)  , SRTS  1 (200)  , 

♦ W OR  1 (200)  , WOR2  ( 200)  , NOR  3(200) 

REAL  IHH 

INTEGER  RL 


00002530 

*000025*0 

•00002550 

*00002560 

*00002570 

•00002580 

00002590 

00002600 

00002610 

00002620 

00002630 

000026*0 

00002650 

00002660 

00002670 

000026B0 

00002690 

00002700 

00002710 

00002720 

00002730 

000027*0 

00002750 

00002760 

00002770 

00002780 

00002790 

00002600 

00002810 

00002820 

00002830 

000028*0 

00002850 

00002860 

00002870 

00002880 

00002890 

00002900 

00002910 

00002920 

00002930 

000029*0 

00002950 

*00002960 

•00002970 

•00002980 

•00002990 

•00003000 

00003010 

00003020 

00003030 

000030*0 

00003050 

00003060 

00003070 

00003080 

00003090 

00003100 

00003110 

00003120 

00003130 

000031*0 

00003150 
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i 


CO HHON  /AUX1/  CCOND(200)  ,COND(200)  .CRTS  (200)  , DCOND(200>  , 

♦ DR  T S ( 2 0 0 1 , SNRTS  (200)  ,SRTS(200)  , HR  (200) 

COHHON  / AU 12/  T PR  (200)  , RPR  (200) 

CCnnON  /AO  13/  CCLH(200)  ,DCLH(200)  ,DLH 

DLH  = 0. 

DO  5 I*1,N 

IP  (QPA(  I)  . EQ . 0)  GO  TO  5 

CCLH(I)  = TPR(I)  • ((1.*  PP8(I))  * SORTS  (I)  * CBCHH(T) 

♦ ♦ CRTS  (I)  • CHH(I)  ♦ PPR(I)  • CORD  ( I)  • CBCHH(I) 
DCLH(I)  * TP  R (I)  * ((DCOHD(I)  ♦ DRTS  (T)  ) • DBCRH(I)  ♦ DRTS  (I) 

♦ * DHH  (I)  ) 

DLH  * DLH  ♦ DCLH(I) 

COMTIHOB 

RETORR 

END 

SOBROOTINE  AUXIL4 


SUBROOTINE  AUXIL4 

THIS  SOBROUTINE  CALCOLATES  THE  POLLORIRG  ADIILI ART  TARIABLBS: 
CAS(I),DAS(I),SAS(I) 


COHHON  /RD1/  ADCH,ADPH,B,CAA,  CADRE,  CCHP.CDR,  CDBH,  CLR.  CON  F,  CPH I. 

♦ CPHP , CPHT, CR  CT, DAA  , DLR , DRCT  , DS  , 

♦ PAC(IO) ,FCS,PSD,H,IHC.K,H,HCRS,HXHRS, 

♦ NCP,NDP,NSP,OST,PIOP,PHE,PP8S,PBCDX,REPURB,RHC, 

» SA,SAA,SHTBI,SOSI,SPRS,SRCT,SN,SNFAC, 

♦ TC,TCCAD#TB,TR,TH,TRCAD,»AL,XOC,TOH#TSCAD,TSLR 
INTEGER  CADRE 

REAL  IHC,K,HCRS,HXHRS 

CCHHON  /RD4/  INO  ( 20C)  , LR NAH E (200 , 24)  , LRPART (200 , 12)  , HCI  (200|  , 

♦ HTBI  (200)  ,N,PA(200|  ,QPA(200)  ,QR(200),RH  (200), 

♦ DC  (2  00 ) 

INTEGER  OPR, QR 
REAL  HTBI 

COHHON  /RD5/  BCHH  (200)  ,CBCHH  (200 ) , CHH  (200 ),  CRTS  1 (200 ) , CRTS2  (200)  , 

♦ DBCNR  (20C)  ,DHH  (200)  ,DRTS1  (200)  ,DRTS2(200)  , 

♦ DRTS  3(200)  , PPR  (200)  ,IHH(200)  ,IN015  (200)  ,N15, 

♦ PAHH(200),RIP  (200 ) ,RL  (200)  . RHH(200)  , SHH(200)  , SRTS  1(200)  , 

♦ HOR1  (200)  ,NOR2(200)  ,HOR3(200) 

REAL  IHH 

INTEGER  RL 

COHHON  / AO X 1 / CCOND  (200)  ,COND(200)  , CRTS  (2C0)  , DCOND  (200)  , 

♦ DRTS  (200)  ,SNRTS(200)  , SRTS  (200)  , NR  (200) 


COHHON  /AUI2/  T PR  (200)  , NPR  (200) 

COHHON  /AOX4/  CAS  (200)  , DA  S (200)  , SA  S ( 200) 


DO 


5 1*1, N 

IP  (QPA (I) .EQ.O)  GO  TO  5 

S AS  ( I)  * (NPR(I)  • (I.*  PPR  (I)  ) • (SRTS(I)  * SRCT 

♦ (1.-  SRTS(I))  • SOSI))  / FLOAT  (H) 

CAS  (I)  « N PR  (I)  • (PPR  (I)  • (1.-  SRTS  (I) ) * CRCT 

♦ CRTS  (I)  * CRCT  ♦ (CCOND  (I ) ♦ DRTS(I)  ♦ DCOND(I)) 
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00003160 
00003170 
00003180 
00003190 
00003200 
00003210 
00003220 
00003230 
00"03240 
00003250 
00003260 
) 00003270 
00003280 
00003290 
00003300 
00003310 
00003320 
00003330 
00003340 
00003350 
00003360 
•00003370 
•00003380 
•00003390 
*00003400 
*00003410 
00003420 
00003430 
00003440 
00003450 
00003460 
00003470 
00003480 
00003490 
00003500 
00003510 
00003520 
00003530 
00003540 
00003550 
00003560 
00003570 
00003580 
00003590 
00003600 
00003610 
00003620 
00003630 
00003640 
00003650 
00003660 
00003670 
00003680 
00003690 
00003700 
00003710 
00003720 
000037  30 
00003740 
00003750 
00003760 
00003770 
00003780 


-*•« 


o o n n n n n 


► * (OS?  ♦ SOSI  / 2.)  ♦ CONO(I)  * OST) 

CAS  (I)  * W PR  (I)  * DRTS(I)  * DRCT 
CONTINUE 

RETURN 

END 

SUBROUTINE  AUXI LS 


* SUBROUTIME  AUXIL5 

* THIS  SUBROUTINE  CALCULATES  THE  POLLOHING  AUXI LI  ART  VARIABLES: 

* DSTK  (I)  .ECHT.HCP  (I)  ,STK(I)  ,STK1  (I)  , Z 

CO H HON  /CNTL/  EXIT.  ITER  , HAXPHT  ,PRNT  , REDO,  RERE A D 
INTEGER  EXIT, PRNT, REDO, REREAD 

C 

CORHON  /IN  IT/  CON  FLO.H  AXPA ,RAXLR , HA  X SE 

C 

CORHON  /RD 1/  A DCH , A DPR , B, CAA .CADRE, CCHP,CDR,CDRH ,CLR,CONP,CPHI, 

♦ CPHP  ,CPNT  ,CRCT , DAA,  DLR,  DRCT , DS, 

♦ PAC  ( 10)  , PCS,  PSD,H,IHC,K,N,HCRS,NXHRS, 

♦ NCP.NDP,  MSP  , OST  ,PIUP,PHE,  PPRS,  PRODX,  BEPUR B, RRC, 

♦ S A,  S AA,  SHTBI,  SO  SI , SPR  S , SRCT,  SN,  SHPAC, 

♦ TC,TCCAD,TE,TR,TH,T»CAD, VAL , XUC, TOH , rSCA D , IS LR 
IN'EGER  CADRE 

REAL  IHC,K,HCRS,HXHRS 
C 

CCHHON  /RD#/  INO(200)  , LRNAHE  (200 , 24)  , LR  PA  RT(2  00 , 12)  ,HCT(200)  , 

♦ HTBI  (200)  ,N,  PA  (203)  ,QPA  (200)  ,QR(200),R8  (200)  , 

♦ UC  (200 ) 

INTEGER  OP  A,  OR 

REAL  HTBI 
C 

CORHON  /RD5/  BCHH  (200)  ,CBCHH  (200)  , CHH  ( 200 ),  CRTS  1 (200)  ,CRTS2  (200) 

♦ DBCH  H (200)  ,DHH  (200)  , DRTS1  (200  ,DRTS2(200)  , 

♦ DRTS  3 (200)  , PPR  ( 200)  ,IHH(200)  ,IN01S(200)  ,N15, 

♦ PAHH(  200), RIP  (2C0),RL  (200|  , RHH(200)  ,SHH(200)  , SRTS1  (200) 

♦ VOR  1 (200)  , NOR 2(200)  ,HOR3(200) 

REAL  IHH 

INTEGER  RL 
C 

CORHON  /AUX2/  T PR  (200)  , HER  (200 ) 

C 

CORHON  / AUX4/  CAS  (200)  , DA S (200 ) , SAS  (200) 

C 

COHHON  /AUI5/  DSTK  (200)  ,ECHT,HCF  (200)  , STK  (200)  , STK  1 ( 200)  , 2 
INTEGER  STK.STK1 

C 

1 FORHAT  (1X//49H  ERROR  ENCOUNTERED  IN  COMPUTATION  OP  STK1  FOR  LRU 

♦ 14,  1 H . /4  9H  THE  SERIES  DID  NOT  CONVERGE.  PROGRAH  CONTINUES.) 

C 

PIVAL  * 1.  / SORT  (2.  * 3.  1415926) 

Z * 1 . 

ZC  » 0.025 
AREA  * CONPLO 
IP  (CONP.LE.  AR  EA)  GO  TO  5 
3 CONTINUE 

DO  4 H H*  1 , 80 
Z * Z ♦ ZC 

AREA  = AREA  ♦ (PIVAL  • (EXP ( (Z**2) / (-2 . ) ) 

♦ ♦ EXP((  (Z-ZC)  **2)  / (-2.  ) ) ) • ZC)  / 2. 

IP  (AREA. GB. CONE)  GO  TO  5 


00003790 
00003800 
00003810 
00003820 
00003830 
00003840 
00003850 
00003860 
►'00003870 
•00003880 
•00003890 
*00003900 
► •0000  3910 
00003920 
00003930 
00003940 
00003950 
00003960 
00003970 
00003980 
00003990 
00004000 
00004010 
00004020 
00004030 
00004040 
00004050 
00004060 
00004070 
00004080 
00004090 
00004100 
00004110 
00004120 
, 00004130 
00004140 
00004150 
, 00004160 
00004170 
00004180 
00004190 
00004200 
00004210 
00004220 
00004230 
00004240 
00004250 
00004260 
00004270 
, 00004280 
00004290 
00004300 
00004310 
00004120 
00004330 
00004340 
00004350 
00004360 
00004370 
00004380 
00004390 
00004400 
00004410 


- ~ . 


4 CO  NT  I N U E 

5 ECHT  * (FLOAT  (H)  * YOH  • K * (1.-  D S)  > / SHTBI 
DO  8 I«1,N 

r.r  (QP  A (I)  .EQ.O)  GO  TO  8 
T1  ’ EXP  (-1.  * SAS  (I)  ) 

TFB 1 » T1 
DO  6 H1»1,  2G0 

IP  (TEH1  .GE.COHF)  GO  TO  7 
T 1 = (SAS  ( I)  * T1)  / FLOAT  (HI) 

TEH1  = TEH  1 ♦ T1 
fi  CONTINUE 

WRITE(6,1J  I 

IF  (PRNT.NE.9)  WRITE  (7,1)  I 

7 STK  1(1)  = HAX0(0,(H1  - QR(T|)  - 1) 

STIC  (I)  = HAXO  (STK1  (I)  ,HCI  (I)  - 1) 

FLHCI  = FLOAT  (H  Cl  ( I)  ) 

IF  (STK  (I)  .GT.O)  DSTK(I)  = 1.  ♦ Z / (2.  * SQRT  (SAS  (I) ) ) 

IF  (STK  (I)  .EQ.O)  DSTK(I)  » 1 . / (( SORT  (FLOAT  (OR  ( I»  ) ♦ 

♦ (FLHCI  / 2.)  * (FLHCI  - 1.) 

♦ ♦ 0.5  ♦ (ZF* 2)  / 4.)  - (Z  / 2.))  **  2) 

K2  = STK  (I)  ♦ OR  (I) 

HCF  (I)  * C 

IF  (HCI(I)  • EQ- 1 . AND . K 2 • EO  • 0)  HCF(I)  = 1 
ECHT  * ECHT  ♦ F LOAT  (HCF  ( I)  ) * YFR(I) 

8 CONTINUE 

RETURN 

END 
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00004450 

00004460 

00004470 

00004480 

00004490 

00004500 

00004510 

00004520 

00004510 

00004540 

00004550 

00004560 

00004570 

00004580 

00004590 

00004600 

00004610 

00004620 

00004630 

00004640 

00004650 
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C 

c* 

c* 

c* 

c* 

C*' 

c 

c 


c 


c 


c 

c* 

c* 

c* 

c* 

c* 

c 


c 


c 

c 

c 

c 

c 


SUBROUTINE  COST1 

THIS  SUBROUTINE  CALCULATES  COST  ELEMENT  1,  ACQUISITION  AND 
DEVELOPHENT. 


COHHON  /Cl/  Cl 

COHHON  /RD 1/  ADCH,ADPH,B,CAA,CADRE,CCHP,  CDR, CDNH, CLR , CONE, CPHI, 

♦ CPHP,CPNT,CRCT,DAA,  DLR,  DRCT,  DS, 

♦ PAC( 10) ,rCS,FSD,H,IHC,K,H,HCRS,BXHRS, 

♦ NCP,  NDP,NSP,OST,PIUP,  PHE,  PPRS,  PRODX,  BEPUR  B, RNC, 

♦ SA, SAA,SBTBI,SOSI,SPRS,SRCT,SW,SRFAC, 

♦ TC,TCCAD,TE,TR,TH,T*CAD, VAl , XUC , TOH, ISC AD , TS LR 
INTEGER  CADRE 

REAL  IHC,K,HCRS,HXHPS 

Cl  * VAL  ♦ PSD  ♦ (XUC  * PNE)  ♦ REPURB  ♦ SN  ♦ PRODX 

RETURN 

END 

SUBROUTINE  COST2 


SUBROUTINE  COST2 

THIS  SUBROUTINE  CALCULATES  COST  ELEHENT  2,  HAINTENANCE  (LABOR  ANj 
TRANSPORTATION)  . 


COHHON  /RD 1/  ADCH, ADPH.B.CAA, CADRE, CCRP,  CDB,C0HH,CLR , CONP, CPHI, 

♦ CPHP,CPHT,CRCT,DAA,  DLR,  DRCT,  DS, 

♦ PAC( 10) ,PCS,PSD,H,IHC,K,H,HCRS,HXHRS, 

♦ NCP,  NDP, NSP,OST , PIU  P,  PHE,  PPRS,  PRODX,  REPURB, RHC, 

♦ S A, S AA, SHTBI, SOSI ,SPRS,SRCT,SR,SHPAC, 

♦ TC, TCCAD, TE ,TR,TN,TNCAD,VAL, XUC , TOH , ISC  AD, IS LR 
INTEGER  CADRE 

REAL  IHC,K,HCRS,nXHRS 

COHHON  /RDU/  INO  ( 200)  , LR N AHE  (200 , 24)  , LR PART(2  00 , 12)  , HCI  (200)  , 

♦ HTBI  (200)  , N,  PA  (200)  ,QPA  (200)  ,QR  (200), RH  (200), 

♦ UC  (200) 

INTEGER  QPA.QR 

REAL  HTBI 

COHHON  /A 0X2/  TPR  (200)  ,VPR  (200) 

COHHON  /AUX3/  CCLH  (200  ) , DCLH  (200 ) . DLH 

COHHON  /AUX5/  DSTN  (200 ),  ECHT  , HCP  (200)  , STK  (200 ),  STN  1 (200)  , l 
INTEGER  STK,  STK  1 

COHHON  /C2/  C2  , C2C,  C2D,  C2L  (200)  ,C2S 

• 

C2S  * FLOAT  (H)  • FLOAT  (RSP)  • ISLR  * PIUP 
IP  (C  PHI  .LE.0.000C1)  C2C  « 0. 

IP  (CPHI. GT. 0.00001)  C2C  » FLOAT  (H) 

♦ • PIUP  • TOH  • (CPHP  • ADPH  * CDR  ♦ H)  / CPHI 
C2C  * C2C  ♦ ((PIUP  * FLOAT  (H)  * TOH  * K • (1.-  DS) ) / SHTBI) 

♦ • (CCHP  • ADCH  • CDR  ♦ H) 

C2D  - 0. 

C2  « C2S  ♦ C2C 


00000010 

00000020 

•000000)0 

•00000040 

*00000050 

*00000060 

•00000070 

00000080 

00000090 

00000100 

00000110 

00000120 

00000130 

00000140 

00000150 

00000160 

00000170 

00000180 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

•00000260 

•00000270 

•00000280 

•00000290 

•00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

00000380 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

00000480 

00000490 

00000500 

00000510 

00000S20 

00000530 

00000540 

00000550 

00000560 

00000570 

00000580 

00000590 

00000600 

00000610 

00000620 

00000630 


-V 
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on  n o on  o non 


T 


1 


DO  5 1-1, N 

IP  (QPA  (I)  .EQ.O)  GO  TO  5 

T RN2  * PIOP  • CCL  H ( I)  • CLR  ♦ PIUP  * FLOUT  ( RCF  (I)  ) • IFR(I) 

♦ • (CCNP  * ADCS  * CDR  ♦ H) 

TEH3  » PIOP  * DCLH(I)  * DLR 
C2L  (I)  » TER  2 ♦ TEH3 
C2C  * C2C  ♦ TBH2 
C2D  * C2D  ♦ TER  3 
C2  = C2  ♦ C2  L (I ) 

5 CORTIROE 
C 

RETORR 

END 

SOBROOTIHE  COST3 

C 

{;•**••••••••••••••••*•••••••••*••••*•••••••••*•*••••*••*•••••*•••«« 

C*  SOBROOT IRE  COST 3 

C*  THIS  SUBROOTIRE  CALCOLATES  COST  ELEHENT  3.  INTESTHBHT  SPARES. 


CORHOH  /C3/  C3,C3C,C3D,C3L  (200)  ,C3S 

COHHON  /RD1/  ADCN, ADPN.B.CAA, CADRE, CCHP, CDR. CDRH, CLR, CORF, CPHI, 

♦ CPHP ,CPRT,CRCT, DA A, DLR , DRCT, DS, 

♦ FAC(IO) ,FCS,PSD,H,IHC,R,R,NCRS,HXHRS, 

♦ NCP,NDP,NSP,OST,PIOP,PRE,PPBS,P8CDX,BEFURB,RHC, 

♦ SA,SAA,SRTBI,SOSI,SPRS  , SRCT,  SB , SR  FAC, 

♦ TC,  TCCAD, TE.TB.TR, TRC AD, FAL.AOC.IOH, ISC AD, IS LR 
INTEGER  CADRE 

REAL  IHC.K.HCRS.RXBRS 

COHRON  /RD4/  I NO  (200),  LR  RARE  (200, 24), LR  PART  (200, 12),  HCI  ( 200)  , 

♦ RTBI  (200)  ,R ,PA  (200)  ,QP»  (200)  ,01  (200)  ,RH  (200)  , 

♦ OC  (200) 

INTEGER  QPA.QR 

REAL  RTBI 

COHRON  /A 0X4/  CAS  (200)  , DAS  (200 ),  S AS  (200) 

CONNOR  /AUX5/  DSTN  (200 ),  ECHT , RCF  (200)  , STK  (200 ),  STK  1 (200)  , Z 
INTEGER  STR.STK1 

C3  * 0. 

C3S  = 0. 

C3C  « 0. 

C3D  * 0. 

DO  5 I»1,H 

IF  (QPA(I) .EQ.O)  GO  TO  5 

TEH  1 « FLOAT  (N)  * FLOAT  (STK  (I)  ) • XOC  • UC(I) 

T EH  2 = AINT  (CAS  ( I)  ♦ B • SQRT(CAS(I|)  ♦ 0.5)  • XUC  * 0C(I) 

TEH3  » AINT  (DAS  (I)  ♦ B * SQRT(DAS(I))  ♦ 0.5)  • XOC  • OC  (I) 

C3L  (I)  » TER  1 ♦ TEH 2 ♦ TEH  3 

C3  1 C 3 ♦ C3L (I) 

C3S  * C3S  ♦ TEH  1 
C3C  » C3C  ♦ TEH  2 
C3D  * C3D  ♦ TEH 3 
5 CONTINUE 

RETORN 

END 

SUBROUTINE  COST4 


i 


i 


00000640 
00000650 
00000660 
00000670 
000006 SO 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
*00000790 
•00000800 
•00000810 
•00000820 
00000830 
00000840 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
00001080 
00001090 
00001100 
00001110 
00001120 
00001130 
00001140 
00001150 
00001160 
00001170 
00001180 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
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C*  SOBROOTIBE  COST4 

C*  THI'"  yUBBODTIME  CALCOLATES  COST  BLBBEBT  4,  BEPL  EHISHHENT  SPARES. 
(;•••*•••«•••••••••••••••••••*•••••••••••••••••••••••••••••••••••••*•• 

c 

COHHOH  /C4/  C4,C4  I, CAL  (200)  ,C4R 

c 

COHHOH  /BD1/  ADCH  , A DPR  ,B,CAA, CADRE,  CCH  P, CDR, C DBH, CLR,  COBP,  CPU  I, 

♦ CPHP, CPHT,CRCT, DAA , DLB , DRCT, DS , 

♦ P AC (10)  ,PCS,PSD,H,IHC,K,H,HCRS.RXHRS, 

♦ BCP, HOP, H SP. OST, PIOP, PHE.P PRS, PR CDX, REPO RB.RHC, 

♦ SA,SAA,SHTBI,SOSI,SPRS,SRCT,SH,  SHPAC, 

♦ TC.TCCAD.TE.TR.Tf ,THCAD  , ? AL,  XOC,  TOH,  ISC  A D,  TSLR 
IBTBGEB  CADRE 

REAL  IHC,K,RCRS,HIHRS 
C 

CORROB  /RD4/  IBO(200)  ,LBBAHE  (209,24)  ,LRPART  (200,  12)  ,HCI  (200)  , 

♦ HTBI  (200)  ,B,PA  (200)  ,QPA  (200)  ,QR  (200)  ,RH  (200)  , 

♦ UC  (200) 

IBTFGEB  QPA.QR 

REAL  RTBI 
C 

CORROB  / AO  X 1 / CCOBD(200)  ,COBD(200)  , CRTS  (200)  ,DCOBD(200)  , 

♦ DBTS  (200)  ,SBRTS(200)  ,SRTS  (209), HB  (200) 

C 

CORROB  /AOX2/  TPR  (200)  ,BPR(200) 

C 

C4  » 0. 

C4 1 * 0. 

C4B  « 0. 

DO  5 1*1,  B 

IP  (QPA(I) • EQ.O)  GO  TO  5 

TEH  1 = TPB(I)  • (HR  (I)  ♦ (1.-  BR  (I) ) • RH(I))  • XOC  * OC(I) 

T EH 2 » (PIOP  - 1.)  * TEH  1 
C4L  (I)  * TEH1  ♦ TEH2 
C4  * C4  ♦ C4L  (I) 

C4I  « C4I  ♦ TER1 
C4R  ■ C4R  ♦ TPR  2 
5 COBTIBOE 
C 

RETORB 

BHD 

SOBROOTIBE  COSTS 
C 


C* 

c* 

c* 

C*| 

c 

c 

I 

I 


( 

i 


c 

c 


SOBROOTIHB  COSTS 

THIS  SOBROOTIBE  CALCOLATES  COST  BLBREBT  S,  COBSOHABLES. 


CORROB  /C5/  C* 

CORROB  /RD1/  ADCR,ADPH,B,CAA,CADRE, CCRP,CDR,CDHH,CLR,COBP,CPRI, 

♦ CPHP , CPBT ,CRCT, DA A , DLB , DRCT, DS , 

♦ PAC  (10)  , PCS  ,PSD,H,IRC,K,R,  HCRS,HXHRS, 

♦ BCP, HDP,HSP,OST,PIOP,PRE,PPRS,PRCDX,REPORB, RRC, 

♦ SA,SAA,SHTBI,SOSI,SPRS, SRCT, SB, S HP  AC, 

♦ TC, TCCAD,TE,TR,TH ,THCAD, V AL, XOC, TOH, TSCAD, TSLR 
IBTBGEB  CADRE 

REAL  IRC ,K,HCRS,HXHRS 

CS  » PLOAT(R)  * PIOP  * ( ( PPRS  ♦ SPRS)  • IOH  * PCS  ♦ HCRS) 

RETORB 
EH  D 


*00001270 
•00001280 
>•00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001 3S0 
00001360 
00001370 
C0001380 
00001390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001S00 
00001510 
00001520 
00001530 
00001540 
00001550 
0u001560 
00001570 
00001580 
00001590 
00001600 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 
00001670 
00001680 
00001690 
•00001700 
•00001710 
•00001720 
•00001730 
00001740 
00001750 
00001760 
00001770 
00001780 
00001790 
00001800 
00001810 
00001820 
00001830 
00001840 
00001850 
00001860 
00001870 
00001880 
00001890 
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n o n n o o 


SUBBOUTI ME  COST6 


SUBROUTINE  COST6 

THIS  SUBROUTINE  CALCULATES  COST  BLEHENT  6,  SUPPORT  EQDI PH  ENT. 


COB BOH  /Cfc/  C6,C6C,C6D,C6I,C6R ,C6S 

COBBON  /BD1/  ADCH.ADPH ,B.CAA, CADRE, CCHP.CDR, CDNH,CLH,CONF,CPHI, 
C PBP  ,CPBT  ,CRCT  , DAA,  DLR,  DBCT,  DS, 

PAC(IO)  , PCS,PSD,H,IHC,K,H,HCRS,flIRRS, 

MC  P,  HDP,  NS  P,OST  , PID  P,  PB  E,  PPBS,  PB  ODX,  REr  OR  B,  RHC. 

SA, SAA,SBTBI,SOSI ,S  PRS.SPCT, SN,  SB  FAC, 

TC,  TCCAD, TE  , TB  , TB,TBCAD  , VA  L , IOC  ,TOH,TSCAD,YSLR 

INTEGER  CADBE 

REAL  IHC,K,HCRS,BIHRS 

COBBON  /RD2/  A,  COC ( 1 50)  , COD  ( 150)  ,COS(150)  ,INO5E(150)  , NSEC  (150)  , 
♦ NSED  (150)  , NS ES  (150)  ,SEC<150)  ,S EN AB E (1 50 , 2* ) 

REAL  NSEC,  NS  ED.NSES 
INTEGER  A 

C6  » 0. 

C6I  » 0. 

C6B  « 0. 

C6S  » 0. 

C6C  * 0. 

C6D  » 0. 

IP  (A.EO.O)  GO  TO  6 
DO  5 L = 1 , A 

TOT  * NSES(L)  ♦ NSEC  (L)  ♦ NSED  (L) 

IP  (TOT.LE.0.00,'1)  GO  TO  5 

TEH  1 » FLOAT  (H)  • NSES(L)  * SFC(L) 

TEH  2 * TEH  1 * P IUP  • COS(L) 

TEH 3 > NSEC  (L)  » SEC  (L) 

TEHtt  * TEH3  * PIOP  • COC(L) 

TENS  * NSED(L)  • S EC  ( L) 

TEH6  * TENS  • PIOP  • COD(L) 

C6  « C6  ♦ TEH  1 ♦ TEH  2 ♦ TEH  3 ♦ TEHtt  ♦ TEH5  ♦ TEH6 
C6I  « C6I  ♦ TEH  1 * TEH3  » TEH5 
C6B  * C6R  ♦ TEH  2 ♦ TEHtt  ♦ TEH6 


C6I  • C6I  ♦ TEH  1 * TEH3 

C6B  * C6R  ♦ TEH  2 ♦ TEHtt 

C6S  « CBS  ♦ TEH1  ♦ TEH2 

C6C  ■ C6C  ♦ TEH  3 ♦ TEHtt 

C6D  * C6D  ♦ TEH5  ♦ TEHfi 
CONTINOE 
CONTINUE 

RETORN 

END 

SOBROOTINE  COST-’ 


SUBROUTINE  COST7 

THIS  SOBROOTINE  CALCULATES  COST  ELEHENT  7,  FACILITIES. 


COHHON  /C7/  C7 

COBBON  /RD1/  ADCH,ADPH,B,CAA,CADRE,CCHP,CDR,CDNH,CLR,CONP,CPHI, 

♦ CPHP , CPNT.CRCT, DA A , DLR , DRCT, DS , 

♦ PAC(IO) ,PCS,PSD,H,IHC,K,H,HCRS,HIHRS, 

♦ ncp,ndp,nsp,ost,piop,phe,pprs,prcdx,reforb,rhc. 


00003900 

00001910 

•*00001920 

•00001930 

•00001990 

••00001950 

00001960 

00001970 

00001980 

00001990 

00002000 

00002010 

00002020 

00002030 

000020*0 

00002050 

00002060 

00002070 

00002080 

00002090 

00002100 

00002110 

00002120 

00002130 

00002190 

00002150 

00002160 

00002170 

00002180 

00002190 

00002200 

00002210 

00002220 

00002230 

000022*0 

00002250 

00002260 

00002270 

00002280 

00002290 

00002300 

00002310 

00002320 

00002330 

000023*0 

00002350 

00002360 

00002370 

00002380 

00002390 

00002*00 

00002*10 

*•00002*20 

•00002*30 

•00002**0 

*•00002*50 

00002«60 

00002*70 

00002*80 

00002*90 

00002500 

00002510 

00002520 
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SA,SAA,SHTBI,SOSI,SPBS,SRCT,SB,SNFAC. 

TC,  TCCAD. TE, TB, TB , TNCA  D,  V AL,  IOC,  TOH.T SCAD,  TSLB 


INTEGER  CADRE 

BEAL  IHC,K,HCRS,HXHRS 

C = 0. 

DO  5 LL*  1,10 

C7  = C7  ♦ FLOAT  (H)  * FAC(LL) 
CONTINUE 

RETURN 

END 

SUBROUTINE  COSTS 


C 

c*< 

c* 

c* 

c*< 

c 


SUBROUTINE  COSTS 

THIS  SUBROUTINE  CALCULATES  COST  ELEHENT  8,  TRAINING  COSTS. 


COHHON  /C8/  C8,C8C,C8D.C8I,C8B ,C8S 

CORHON  /RD1/  ADCH,ADPN,B,CAA, CADRE, CCHP,CDR,CDBH,CLR,COBF.CPNI, 

♦ CP8P,CPBT,CRCT,DAA,DLB,DRCT,DS, 

♦ FAC  (10)  , PCS,FSD,H,  INC,  K,  H,  HCRS,  H X HBS  , 

♦ NCP,NDP,NSP,OST,PIUP,PNE,PPBS,PB  ODX ,REFUBB,RNC, 

♦ SA,SAA,SNTBI,SOSI,SPRS,S RCT, SN,  SNFAC, 

♦ TC, TCCA  D,TE ,TR,TB,TBCAD,VAL,XUC,TOH, TSCAD, TSLB 
INTEGER  CADRE 

REAL  IHC.F  NCRS.HXHBS 


TE  HI  * FLOAT  (N)  * FLOAT  (NS  PE  * Tt  * TC 
TEH2  * TEH  1 * (PIUP  - 1.)  * TB 
TEH3  = FLOAT  (C  ADR  E) 

TEH4  = FLOAT  (CADRE) 


TEHS 
TEN6 
CR  * 

C8I  « TEH1 
C8R  * TEN 2 
CSS  * TEH1 
CSC  * TEH  3 
C8D  * TENS 


= FLOAT  (N DP)  • 
« T EH 5 * (PIUP 
TEH  1 ♦ TEH2  ♦ 

♦ TEH3  ♦ 

♦ T EH  4 

♦ TEH2 

♦ 'EH  4 

♦ TEHfi 


- 1.)  * TB 

• TNCAD  • TCCAD  ♦ TE  ♦ FLOAT (NCP)  * TN  • TC 

• TSCAD  • PIUP  ♦ FLOAT  (NCP)  * (PIUP  - 1.) 

* TR  * TN  * TC 

TN  * TC 


- 1.)  * TR 
EH  3 ♦ TEH4 
TEH5 
♦ TFHA 


♦ TEH5  ♦ TEH 6 


RETURN 

END 

SUBROUTINE  COST9 


SUBROUTINE  COSTS 

THIS  SUBROUTINE  CALCULATES  COST  ELEHENT  9,  INVENTORY  HANAGEHENT. 


COHHON  /C9/  C9,C9C,C90,C9I,C9L (200)  ,C9R ,C«S 

COHHON  /RD1 / ADCN,ADPH,B,CAA, CADRE, CCHP.CDR,  CDNH, CLP, CONE, CPHI, 

♦ CPHP,CPHT,CRCT,DAA,DLR ,DRCT,DS, 

♦ FAC  (10) , PCS,PSD,H,IHC,K,H,HCRS,NXHRS, 

♦ NCP,NDP,NSP,OST,PIUP,PHE,PPBS,PBCDX,  REFU:.  o,RHC, 

♦ SA,SAA,SHTBI,SOSI,SPRS,SRCT,SN,SNFAC, 

♦ T C, TCCAD, TE,TR,TN,TNCAD,VAL,XUC,YOH,YSCAD,YSLR 
INTEGER  CADRE 

REAL  IHC.K, HCRS, HERRS 
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00002530 
00002540 
00002550 
00002560 
00002570 
00002580 
00002590 
00002600 
00002610 
00002620 
00002630 
00002640 
00002650 
00002660 
>•00002670 
•00002680 
*00002690 
>•00002700 
00002710 
00002720 
0000  27  30 
00002740 
00002750 
00002760 
00002770 
00002780 
00002790 
00002800 
00002810 
00002820 
00002830 
00002840 
00002850 
00002860 
00002870 
00002880 
O00Q2890 
00002900 
00002910 
00002920 
00002930 
00002940 
00002950 
00002960 
00002970 
00002980 
00002990 
00003000 
*•00003010 
•00003020 
•00003030 
•*00003040 
0000  30  50 
00003060 
00003070 
00003080 
00003090 
00003100 
00003110 
00003120 
00003130 
00003140 
00003150 


v 


o o n n n o 


CORRON  /BD4/  1*0120^)  , LRNAHE (200, 24)  ,LRPART(200,12)  , ACT  (200)  , 
f fITBI  (200)  ,N,PA  (290)  ,QPA  (200)  , OR  (200)  , RR  (200)  , 

t 0 C (2  00) 

INTEGER  QPA.OR 
HEAL  RTBI 

COHHON  /AOIl/  CCOND  (200)  ,COND  (200)  .CRTS  (200)  , DCOND  (200)  , 

► CRTS  (200)  , SHBTS  (200)  ,SR?S(200)  ,BR(200) 


DO  5 1 = 1,  N 

IF  (QPA  (I)  . EQ.  0 ) GO  TO  5 
IF  (SRTS  (I)  .LE.O. 00001)  01  = 0. 

IF  (SRTS  (I)  .GT. 0.00001)  01  = 1. 

IF  (CRTS(I)  .LE.  0.00001)  02  = 0. 

IF  (CRTS  (I)  .GT. 0.00001)  02  « 1. 

IF  (CORD(I)  .GB. 0.99999)  03  * 0. 

IF  (COND  (I)  . LT. 0.99999)  03  * 1. 

T Ell 2 * FLOAT  (R)  * SA  * PIOP  • (1.  ♦ 01  • PA(I)| 
TEHU  = SA  * PIOP  • (1.  ♦ 02  • PA ( I ) | 

TER 5 = IRC  * (1.  ♦ 03  • PA(I|) 

TER6  = PIOP  * RRC  • (1.  ♦ 03  * PA(I|) 

C 9L  ( I ) = TER2  ♦ TER4  ♦ TER5  ♦ T ER6 
C9  * C9  ♦ C9L  (I) 

C9I  = C9I  ♦ TEAS 
C9R  = C9R  ♦ TEH  2 ♦ TEHU  ♦ TER6 
C9S  * C9S  ♦ TER2 
C9C  = C9C  ♦ TER  4 
C9D  = C9D  ♦ TER5  ♦ T ERG 
CORTIROE 

RETORN 

ERD 

SOBROOTINE  COSTIO 


* SOBROOTINE  COSTIO 

• THIS  SOBROOTINE  CALCOLATES  COST  ELERENT  10,  SOPTBARE  R AIRTENAHCE. 

CCRRON  /CIO/  C10,C10HB(10) ,C10I,C10R,C10SN(10) 

C 

CORRON  /RD 1/  ADCR,ADPR,B,CAA,CADRE,CCRP, CDR,CDBB,CLR,CORF,CPHI, 

♦ CPRP.CPBT.CRCT,  DAA,  DLR,  DRCT,  DS, 

♦ FAC ( 10) , FCS ,FSD,H,IRC,K,A,HCRS,AXHRS, 

♦ NCP , NDP,NSP,OST  ,PI0P,  PHE,  PPRS,  PRODX,  REFOR  B,  RRC, 

♦ SA,SAA,5HTBI,SOSI,SPRS,SRCT,SB,SBFAC, 

♦ TC,TCCAD,TE,TR.TB,TBCAD,»AL, IOC, Y OH, I SCAD, T SLR 
INTEGER  CADRE 

REAL  IHC,K,HCRS,RXHRS 
C 

CORRON  /RD  1/  ENYR(IO)  ,FA,  FANAHBI  1C,  2«)  , HBCF(IO)  ,IROFA  (10)  ,BHH  (10) 

♦ SIZE  (10)  ,SHT  (10)  ,SBCF(10)  ,SBFII(  10)  , SBYAR(IO)  , 

♦ B EIGHT  (IP) 

INTEGER  FA 

RIAL  HHH 


00003160 
00003170 
00003180 
00003190 
00003200 
00003210 
0000  3220 
00003230 
00003240 
00003250 
00003260 
00003270 
00003280 
00003290 
00003300 
00003310 
00003320 
00003330 
0000  3340 
00003350 
00003360 
00003370 
00003380 
00003390 
00003400 
00003410 
00003420 
00003430 
00003440 
00003450 
00003460 
00003470 
00003480 
00003490 
00003500 
00003510 
00003520 
00003530 
00003540 
00003550 
00003560 
*00003570 
*00003580 
*00003590 
•00003600 
00003610 
00003620 
00003630 
90003640 
00003650 
00003660 
00003670 
00003680 
00003690 
00003700 
00003710 
0000)720 
,00003730 
00003740 
00003750 
00003760 
00003770 
00003780 


i 


cioi  « swpac 

00003790 

Cl  OR  » 0 . 

00003800 

c 

00003810 

DO  5 J«1  ,PA 

00003820 

C10HB  (J)  = 

PIUP  • ENTR(J)  • WEIGHT  (J)  * HNCP  (J)  • CPWT 

00003830 

C10SB  (J)  = 

PIUP  * ENTR  (J)  * (SIZE  (J)  * SBCP(J)  * SH»»R(J) 

00003840 

♦ 

♦ SBPIX  (J) ) 

00003850 

C10R  = C10R 

♦ CIOHW(J)  ♦ CIOSB(J) 

00003860 

5 CONTINUE 

00003870 

6 CIO  * CIOI  ♦ 

C10R 

00003880 

C 

00003890 

RETURN 

00003900 

END 

00003910 

105 


SUBROUTINE  HONCOS 


SUBROUTINE  HONCOS 

THIS  SUBROUTINE  CALCULATES  CERTAIN  NON-COST  VABIABLES  (THE 
VARIABLES  ARE  CALLED  NON-COST  BECAUSE  THEIR  VALUES  DO  NOT  ENTER 
INTO  THE  COST  ELEHENT  SUHHATIONS)  THAT  DEAL  RITR  HAINTENANCE 
HAN-HODRS.  SOHE  OP  THESE  VARIABLES  (S  HH  H,  S PH  H,  STH  H,  CL  H)  NILL  BE 
CHECKED  AGAINST  CONSTRAINTS  IN  SUBROUTINE  OTAB1  (DLH , 

CALCULATED  IN  A0XIL3,  BILL  ALSO  BE  CHECKED  AGAINST  CONSTRAINTS  IN 
OTAB1).  IF  THE  CONSTRAINTS  ARE  NOT  NET,  OTAB1  HILL  PRINT  ERROR 
HESSAGES.  NONCOS  ALSO  CALCULATES  VARIABLE  PHEA (J)  (PREVENTIVE 
HAINTENANCE  NAN-HOURS  FOR  FUNCTIONAL  AREA  J),  H H ICH  HILL  BE 
PRINTED  OUT  IN  0TAB4. 


COHHON  /NCOS/  CLH,PHPA(10)  ,S HNH, S PNH, STH H 

COHHON  /RD 1/  ADCH, ADPH.B,CAA,CADRE,CCHP,CDR, CDHH, CLR, CORE, CPHI, 

♦ CPHP.CPHT.CRCT,  DAA  , DLR,  DRCT , DS, 

♦ FAC(  10)  , ECS,ESD,H,IHC,K.H,  HCRS.HXHRS, 

» NCP,HDP,NSP,OST.PIUP,  PNE,  PPRS,  PRODI,  REPURB,  RNC, 

♦ SA, SAA,SNTBI,SOSI,SPRS,SRCT,SH,SHPAC, 

♦ TC,TCCAD,TE,TR,TH,THCAD, VAL  , XUC  , IOH,  TSC  A D,  TS  LR 
INTEGER  CADRE 

REAL  IHC,K, HCRS.HXHRS 

COHHON  /RD3/  ENYR  (10)  . FA,  EANAHE  (10,24)  rHHCP  (1  0)  ,IHOE  A (10)  , HNH (10) 

► SIZE  (10)  ,SHT  (10)  ,3HCT  (10)  .SHFIX  (1  0)  , SB  VAR  (10)  , 

♦ H EIGHT  (1 0 ) 

REAL  HNH 

INTEGER  PA 

COHHON  /RD4/  I NO  (200)  , LRNA  HE  (200 , 2 4)  , LR  PART  (200,  1 2)  , HC I (200)  , 

♦ HTBI  (200)  , N , PA  (200)  ,QPA  (2C0)  ,QR(20C)  ,RH  (200)  , 

► UC ( 200) 

INTEGER  QPA.QR 

REAL  HTBI 

COHHON  /HD5/  BCHH(200)  ,CBCHH(200)  , CHH  (200)  , CR  TS1  (200)  ,CRTS2  (200)  , 

♦ DBCHH  (200)  ,DHH  (200)  , DRTS1  (200) , DRTS2  (200)  , 

♦ DRTS3  (200)  , PPR  (200)  ,IHH  (200)  ,INO15(200)  ,N15, 

► PAHH  ( 200)  ,P  IP  (20C)  , RL  (20C)  , RHH  (2  00)  , SHH  (2  00)  ,SRTS1  (200)  , 

♦ HOR1  (2C0)  ,HOP2  (200)  ,HOR3  (200) 

RFAL  IHH 

INTEGER  RL 

COHHON  /AU  XI  / CCOND  (200)  ,COND(200)  , CRTS  (200)  , DCOND  (200)  , 

♦ DRT5(20C)  ,SNRTS(200)  ,SRTS(200)  , NR  ( 200) 

COHHON  /AUX2/  TER  (2 0n ) , HER  (200  ) 

COHHON  /AU  X 3/  CCL  H (200 ) , DCLH  (20'' ) , D LH 

COHHON  /AUXS/  DSTK  (2 0 "> ) ,ECHT,HCP  (200)  ,STK  (200)  ,STK1(200)  ,Z 
INTEGPR  STK.STK1 

IP  (CPHI.LE. 0.00001)  CL H = ECHT  « CCHP  • ADCH  • CDHH 
IP  (CPHI  .3T. 0.00001)  C LH  = (FLOAT  (H)  * T OH  • CPHP  * A DPH 

♦ • CDHH)  / CPHI  ♦ ECHT  • CCHP  • ADCH  * CDHH 
SHHH  « 0. 

SPHH  = 0. 


00000010 
00000020 
•00000030 
•00000040 
•00000050 
*00000060 
•00000070 
•00000080 
*00000090 
*00000100 
•00000110 
*00000120 
*00000130 
•OOOOOIHO 
•00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
,00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
000006  30 
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IP  (PA.EQ.O)  GO  TO  2 00000640 

DO  1 J»1,PA  00000650 

PUP*  (J)  » 0.  00000660 

IP  (SHI  (J)  .GT.  0.00001)  PUPA  (J)  » (TOH  * HHH(J))  / SHI(J)  00000670 

S HH  H = SUN  H ♦ PH  PA (J)  00000680 

continue  00000690 

continue  00000700 

00000710 

DO  3 I»1,N  00000720 

IP  (QPA(I)  .EO.0)  GO  TO  3 00000730 

SHH  H * SHSH  ♦ (TOH  • K * FLOAT  (QPA  (II  ) * ((1.»  FPR(I))  • PAHH(I) 00000740 

► ♦ RIP(I)  * IHH  (I)  ♦ (1.-  RIP  (I))  » (I.*  PPR(I))  00000750 

* • RHH(I)))  / HTBI(I)  00000760 

S PH  H * SPHH  ♦ (YPR(I)  / FLOAT  (H)  ) • ((l.'FPR(I))  * BCHH(I)  00000770 

► ♦ SRTS(I)  *SHH(I))  00000780 

CLH  « CLH  ♦ CCLH(I)  00000790 

CONTINUE  00000800 


STHH  * SHHH  ♦ SPHH 

RETURN 

END 

SUBROUTINE  Dine 


SUBROUTINE  DXUC 

THIS  SUBROUTINE  CALCULATES  THE  DERIVATIVE  OP  LIFE  CYCLE  COST  KITH 
RESPECT  TO  (UC  (SOVERNHENT  SUPPLIED  LRU  ESCALATION  FACTOR ( GLOBAL) ) 

»•••**•••*••*••*••••••*•••*••••••••••••*•*••••••••••••••••••••#•••• 

COHHON  /TDXUC/  TDXUC 

COHHON  /RDV  ADCH,ADPH,B,CAA, CADRE, CCHP.CDR, CDNH, CLR , CONP, CPH I, 

♦ CPHP,CPBT,CRCT, DA A , DLR , DRCT.DS, 

♦ P AC ( 10) ,FCS,FSD,H,IHC,K,H,HCRS,HIHRS, 

♦ NCP, NDP,NSP,OST.PIUP,PHE,PPRS,PRODI,8EFURB,RHC, 

♦ SA,SAA,SHTBI,SOSI,SPRS,SRCT, SH.SiFAC, 

♦ TC,TCCAD,TE,TR,TW,THCAD,VAL,IUC.YOH,TSCAD,TSLB 
INTEGER  CADRE 

RIAL  IHC,K,HCRS,HXHRS 

COHHON  /SENS/  PIN C, LOCH H, LDCRTS , LDDHH, LDD RTS, LDERV , L DPPR, LDPR , 

♦ LDHCI , LDRH ,LDSRTS,LDWOR,LDUC 


COHHON  /C3/  C3,C3C,C3D,C3L(200)  ,C3S 
COHHON  /C4/  C4,C4I,C4L  (200)  ,C4R 
TDXUC  = PINC  • (PHE  • XUC  ♦ C3  ♦ C4) 


RETURN 

END 

SUBROUTINE  DPR 


SUBROUTINE  DPR 

THIS  SUBROUTINE  CALCULATES  THE  DERIVATIVE  OP  LIFE  CYCLE  COST  NITH 
RESPECT  TO  PR  * 1./  HTBI(I)  (FAILURE  RATE). 

IP  LDPR  > 0,  THEN 

AFTER  ALL  DERIVATIVES  HAVE  BEEN  CALCULATED,  THE  SUBROUTINE  CALLS 
SUBROUTINE  TDSORT  TO  'BUBBLE  UP'  TO  THE  TOP  OP  ARRAY  IDPR  THE 
INDEX  NUHBERS  OP  THE  LDPR  LARGEST  DERIVATIVES. 


00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

00000820 

00000830 

000008*0 

00000850 

00000860 

00000870 

•*00000680 

•00000890 

•00000900 

.*00000910 

*•00000920 

000009)0 

000009*0 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

90001020 

00001030 

00001040 

00001050 

00001060 

00001070 

00001080 

00001090 

00001100 

00001110 

00001120 

00001130 

00001140 

00001150 

00001160 

00001170 

•*00001180 

*00001190 

•00001200 

•00001210 

•00001220 

•000012)0 

*000012*0 

*00001250 

*•00001260 
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COHHON  /TDFR/  IDPR  (200)  , TDFR  (205) 

COHHON  /CNTL/  EX  IT,  ITER  , HA  XPNT  , PRHT  , REDO,  PER  E AD 
INTEGER  EXIT, PRNT, REDO, REREAD 

COHHON  /RD1/  ADCR.ADPH ,B,CAA, CADRE, CCHP.CDR, CDHH.CLR.CONP.CPHI. 

♦ CPRP  ,CPWT  ,CRCT  , DAI,  DLR,  DRCT,  OS, 

♦ PAC(IO) , PCS ,P5D,H,IHC,K,H,NCRS,HXHRS, 

♦ NCP,  RDP,RSP,OST,PIUP,  PHE,  PPR5,  PRODI,  REPUR B,  RRC, 

♦ SA,  SAA,SHTBI,SOSI,SPRS  , SRCT,  SI,  SHPAC, 

♦ TC,TCCAD,TE,TR,TH,THCAD,TAL,XUC,TOH,TSCAD,TSLR 
INTEGER  CADRE 

REAL  IHC,K,HCRS,HIHRS 

COHHON  /RDU/  INO  (200)  , LRNAH E (200 , 24)  , LRPART  ( 200,  12)  , HCI  ( 200|  , 

♦ NTBI  (200)  ,N,PA  (200)  ,QPA  (200)  ,QR  (2  00)  , RH  (200)  , 

♦ UC(200) 

INTEGER  QPA.QR 
REAL  HTB I 


COHHON  /RD5/  BCHR  (200)  ,CBCHH(200)  ,CHH  (200)  ,CRTS1  (200)  ,CRTS2  (200)  , 

♦ DBCHH  (200 ) , DHH  (200)  ,DRTS1  (200)  ,DRTS2(20C)  , 

♦ DRTS  3 ( 200)  , PPR  (200)  ,INH  (2  00)  , IN0 15  (200)  ,N15, 

♦ PAHH  (200)  , PIP  (200)  , RL  (200)  , RH H (200)  , SH H (200)  ,SRTS1  (200)  , 

♦ ROR1  (200)  ,ROR2  (200)  ,ROR3(200) 

REAL  IHH 

INTEGER  RL 


COHHON  /SENS/  PIN C, LOCHH, LDCRTS , LDDHH , LDDRTS , LDERT , LDPPR, LDPR, 

♦ LDHCI,LDRH,LDSRTS,LDROR,LDUC 

COHHON  /AUX 1/  CCOND(200)  ,COND(200)  .CRTS  (200)  .DCOND  (200)  , 

♦ DRTS  (200)  , SNRTS  (200 ) ,SRTS  (200)  , HR  (200) 

COHHON  /A0I2/  TPR  (200)  ,HPR  (200) 

COHHON  /AUX3/  CCLH  ( 200)  , DCLH  (200)  , DL H 
COHHON  /A 0 X4 / CAS  (200)  , DAS  (200)  , SAS  (200) 

COHHON  /AUX5/  DSTK  ( 200)  , ECHT , HCP  (200)  , STK  (200 ) , STK1  (200)  , Z 
INTEGER  STK, STK 1 


♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

t 

♦ 


DO  5 I *1  , N 

IP  (QPA(I)  .NE.O)  GO  TO  1 
TOPR  (I)  * 0. 

GO  TO  4 

TDPR(I)  * DSTK  (T)  • PLOAT  (H)  • PINC  • SAS(I)  * XUC  * UC  (I) 

♦ (PINC  • CAS  (I)  ♦ B * (S0RT((1,»  PINC)  * CAS(I)) 

- SORT  (CAS(I)  ) ) ) • IOC  * UC(I) 

♦ (PINC  « DAS  (I)  ♦ B * (SQRT((1.»  PINC)  * DAS(I)) 

- SORT  (DAS  (I)  ) ) ) * XUC  * OC(I) 

♦ PINC  * PIOP  * TPR  (I)  • (HR  (I)  ♦ (1.  - HR  (I)  ) 

• RH  (I)  ) • XUC  * OC  (I) 

♦ PINC  * PIOP  * (CCLH  (I)  * CLR  ♦ DCLH(I)  * DIR) 

♦ PIUP  • (CCHP  * ADCH  * CDR  ♦ H)  * PINC  * PLOAT (H) 

• TOH  * K • PLOAT  (QPA  (I)  ) • ((1.-  RIP(I)) 

• PLOAT  (HCP(I)  | ♦ (1.-  DS))  / HTBI(I) 


IDFR(I)  » I 
CONTINUE 


LD  > LDPR 


00001270 

00001280 

00001290 

00001300 

00001310 

00001320 

00001330 

000013*0 

00001350 

00001360 

00001370 

00001380 

00001390 

00001400 

00001410 

00001420 

00001430 

000014*0 

00001450 

00001*60 

00001*70 

00001*80 

00001490 

00001500 

00001510 

00001520 

00001530 

000015*0 

00001550 

00001560 

00001570 

00001580 

00001590 

00001600 

00001610 

00001620 

00001630 

00001640 

00001650 

00001660 

00001670 

00001680 

00001690 

00001700 

00001710 

00001720 

00001730 

00001740 

00001750 

00001760 

00001770 

00001780 

00001790 

00001800 

00001810 

00001820 

00001830 

000018*0 

00001850 

00001860 

00001870 

00001880 

00001890 
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c 


c 


c 


c 


c 


IP  (PRNT.NE.O)  LD  » HAXC  ( LD,  LDERV) 

IP  (LDPR . GT.  O.OB.LDERV.  GT.  0)  CULL  TDSORT  (TDPR  , IDPR.  L D,  N) 

RETURN 

END 

SUBROUTINE  DK 


SUBROUTINE  DK 

THIS  SUBROUTINE  CALCULATES  THE  DERIVATIVE  OP  LIPE  CICLE  COST  NITH 
RESPECT  TO  K (THE  RELIABILITY  PACTOR  NHICH  CONVERTS  PREDICTED 
PAILORE  RATES  TO  OPERATIONAL  PAILURE  RATES) . 


COHHON  /TDK/  TDK 

COHHON  /TDPR/  IDPR(20f')  ,TDPR(2Q0( 

CCHHON  /RD«/  I NO  (200) ,LRNAHE(200,24) , LRPART (2 00, 12) ,HCI (200) , 

♦ HTBI  (200)  ,N,  PA  (200)  ,QPA(200)  ,QR(200)  ,RH  (200)  , 

♦ nc(200) 

INTEGER  QPA.QR 
RIAL  HTBI 

TDK  * 0. 

DO  5 1*1  ,N 

IP  (QPA(T)  . EQ.  0 ) GO  TO  5 
TDK  * TDK  ♦ TDPR(I) 

5 CONTINUE 

RETURN 
END 

SUBROUTINE  DnC 


SUBROUTINE  DOC 

THIS  SUBROUTINE  CALCULATES  THE  DERIVATIVE  OP  LIPE  CYCLE  COST  RITH 
RESPECT  TO  UC  (UNIT  COST). 

AFTER  ALL  DERIVATIVES  HAVE  BEEN  CALCULATED,  THE  SUBROUTINE  CALLS 
SUBROUTINE  TDSORT  TO  'BUBBLE  UP'  TO  THE  TOP  OP  ARRAY  IDUC  THE 
INDEX  NUHBERS  OP  THE  LDOC  LARGEST  DERIVATIVES. 


CCHHON  /TDUC/  I DUC  ( 20C ) ,TDUC  (20C) 

COHHON  /CNTL/  EXIT, ITER, HAXPHT, PRNT, REDO , RER EA D 
INTEGER  EXIT, PRNT, REDO, REREAD 

COHHON  /RD1/  ADCH,ADPH,B,CAA,  CADRE,  CCH  P,  CDR,  C ON  H,  CLR  , CON  P,  CPH  I , 

♦ CPHP , CPHT ,CRCT , DA A , DLR , DRCT, DS , 

♦ PAC (10) ,PCS,PSD,H,IHC,K,H, HCRS.HXHRS, 

♦ NCP,NDP,NSP,OST,PIUP,PHE,PPRS,PRCDX,REPURB,RNC, 

♦ SA,SAA,SHTBI,SOSI,SPRS,SRCT,SH,SHPAC, 

♦ TC, TCCAD.TE ,TR ,TN ,THCAD,VAL, XUC, YOH, YSCA D, YSLR 
INTEGER  CADRE 

REAL  IHC.K.nCRS.HXHRS 

COHHON  /RD4/  I NO  (200)  . LRNAHE  (200 , 24)  , LR  PART  (200,  12)  , HCI  (200)  , 

♦ HTBI  (200)  , N , PA  (200)  ,QPA  (200)  ,QR  (200)  , RH  (200)  , 

♦ UC  (200) 

INTEGER  OPA.QR 

REAL  HTBI 


00001900 

00001910 

00001920 

00001930 

00001940 

00001950 

00001960 

*00001970 

*00001990 

•00001990 

*00002000 

•00002010 

•00002020 

00002030 

00002040 

00002050 

00002060 

00002070 

00002080 

00002090 

90002100 

00002110 

00002120 

00002130 

00002140 

00002150 

00002160 

00002170 

00002180 

00002190 

00002200 

00002210 

00002220 

00002230 

*00002240 

*00002250 

•00002260 

•00002270 

•00002280 

•00002290 

•00002300 

*00002310 

00002320 

00002330 

00002340 

00002350 

00002360 

00002370 

00002380 

00002390 

00002400 

00002410 

00002420 

00002430 

00002440 

00002450 

00002460 

00002470 

00002480 

00002490 

00002500 

00002510 

00002520 
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I 

i 

>i 

I 

\ 


v 


) 

i 


c 

c 

c 

c 

c 


4 

5 


C 


C 

C*' 

c* 

c» 

c* 

c* 

c* 

c* 

C*' 

c 

c 


c 


c 


c 


CO  (1(104 

connoN 

C0N404 

connoN 


/SENS/  PI4C,LDCNH,LDCRTS,LDDHH,LDDRTS,  LDERV  ,LDEPB  , LDFR  , 
LDBCI,LDRH,LDSRTS,  LDNOR,  LDUC 

CCORD  (20  01  ,COHD(200l  ,CRTS(200)  ,DCOND(200|  , 

DRTS  (200 ) ,SNRTS(230)  ,SRTS(200)  ,»R(200) 

/A  U X2  / TER  (200)  ,WPR  (200) 

/A0X4/  CAS  (200)  .DAS  (203)  .SAS  (200) 


COHHON  /AO IS/  DSTR  (200)  .ECBT.BCF  (200)  ,STK  (200)  .STB  1 (200)  ,Z 
I4TEGER  STB,  STIM 


DO  5 1=1.4 

IP  (QPA(I)  • NE.0)  GO  TO  1 
TDOC(I)  « 0. 

GO  TO  » 

TDOC(T)  = (FLOAT  (B)  * FLOAT  (STB  ( I)  ) ♦ AINT(CAS(I) 

♦ ♦ B * SORT  (CAS  (I) ) ♦ 0.5) 

♦ ♦ AX  NT  (DAS  (T)  ♦ B * SORT(DAS(I)|  ♦ 0.5)) 

♦ • TOC  • PIBC  * OC(I) 

♦ ♦ FLOAT  (B- 1)  • FLOAT  (QPA  (X ) ) * IUC  • FI4C  * DC  (I) 

♦ ♦ PIOP  • TFF(I)  • (4  R (I)  ♦ (1.-  NR(I))  • BB  (I)) 

♦ * XUC  * FINC  • DC  (I) 

I DOC  (I)  = I 

CO4TIM0R 


LD  * LDOC 

IF  (PR4T.4E.0)  LD  » N A TO  (LD,  LD  ER  V) 
CALL  TDSORT (TDOC.IDUC.LD.N) 

RETORN 

END 

SOBROOTI4E  DBOR 


SOBROUTINE  DNOR 

THIS  SOBROOTIRE  CALCULATES  THE  DERIVATIVE  OF  LIFE  CYCLE  COST  WITH 
RESPECT  TO  WOR  (HEAR  OOT  RATE). 

AFTER  ALL  DERIVATIVES  HAVE  BEER  CALCULATED,  THE  SUBROOTI 4E  CALLS 
SUBROOTINE  TDSORT  TO  ’BUBBLE  UP’  TO  THE  TOP  OF  ARRAY  ID40R  THE 
INDEX  RUBBERS  OP  THE  LD40R  LARGEST  DERIVATIVES. 


COHHON  /TD  NOR/  I DNOR  ( 200)  ,T DNOR  (200)  , NP  (2  00) 

COB HON  /C4TL/  EXIT, ITER , BAXPHT, PRNT, REDO, RER EA D 
INTEGER  EXIT, PR4T, REDO, REREAD 

COHHON  /RDtt/  INO(200)  .LRRABE  (200,24)  .LRPART  (200,  12)  , HCI  (200)  , 

♦ BTBI  (200)  , N , PA  (200)  .QPA  (2C0)  ,QR(200)  ,RH  (200)  , 

♦ UC  (2  00) 

INTEGER  QPA.QR 

REAL  BTBI 

COHHON  /RD5/  BCHH  (20«)  ,CBCHH(20C)  ,CBH  (200)  ,CRTS1  (200)  ,CRTS2  (200)  , 

♦ DBCHH  (200  , DHH  (200)  , DRTS  1 (20C)  , DRTS2  (200)  , 

♦ DRTS 3 (200, PPR  (203)  ,IHH(200)  ,IN015(200)  ,N15, 

♦ PAHH  (200)  ,RIP  (200)  ,RL  (200)  ,RBH  (200)  , SBH  (200)  ,SRTS1  (200)  , 

♦ NOR1  (200)  ,BOR2  (200)  ,HOR3(200) 

PEAL  IHH 

INTEGER  RL 


00002530 
00002540 
00002550 
00002560 
00002570 
00002580 
00002590 
00002600 
00002610 
00002620 
00002630 
00002640 
00002650 
00002660 
00002670 
00002680 
00002690 
00002700 
00002710 
00002720 
00002730 
00002740 
00002750 
00002760 
00002770 
00002780 
00002790 
00002800 
00002810 
00002820 
0000283C 
00002840 
00002850 
00002860 
00002870 
•00002880 
•00002890 
•00002900 
•00002910 
•00002920 
•00002930 
•00002940 
•00002950 
00002960 
00002970 
00002980 
00002990 
00003000 
00003010 
00003020 
00003030 
000030  40 
00003050 
00003060 
00003070 
00003080 
00003090 
00003100 
00003110 
00003120 
00003130 
00003143 
00003150 
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J 


1 

COMMON  /SENS/  PI NC, L DCH H, LDCRTS, L DDH H, LDDRTS , LDERV , LDFPR , LDF8 , 

90003160 

< 

4 

♦ ldhci,ldrh,ldsrts,ldhor,lduc 

00003170 

c 

00003180 

COMMON  /AUX1/  CCOND  (200)  ,COND(200)  .CRTS  (20C)  . DCOND  (200)  , 

00003190 

♦ DRTS  (200)  , SNRTS  (200)  ,SRTS(20")  ,HR(200) 

00003200 

c 

00003210 

COMMON  /CHLCC/  CCP,  CP,  CHLCC,  DCP,  DP.SCP.  SP 

00003220 

c 

00003230 

DO  6 1 = 1,  N 

00003240 

IP  (QPA  (I)  .NE.O)  GO  TO  1 

00003250 

TDNOR  (I)  = 0. 

00003260 

NP(I)  * 0. 

00003270 

GO  TO  5 

00003280 

1 

HF(I)  = AMIN  1 (PINC,  1 NR  ( I)  ) 

00003290 

IP  (NP  (I) .GT. 0.00001)  GO  TO  2 

00003300 

TDNOR(I)  = 0. 

00003310 

GO  TO  5 

00003320 

2 

CONTINUE 

00003330 

1 

SCF  * 0. 

00003340 

SP  = (-1.  * SRTS(I)  * HP  (I) ) / (SRTS(I)  ♦ CRTS(I)  ♦ DRTS(I)) 

00003350 

CP  * (-1.  • CRTS  ( I)  * HP  ( I) ) / (SRTS(I)  ♦ CRTS(I)  ♦ DRTS  (I)  ) 

00003360 

DP  = (-1.  * DRTS  (I)  * HF(I))  / (5RTS  (I)  ♦ CPTS(I)  ♦ DRTS(I)) 

00003370 

IP  (RL  (I)  . EO.  3)  GO  TO  3 

00003380 

CCP  * HP  (I) 

00003390 

DCP  * 0. 

00003400 

• 

GO  TO  4 

00003410 

3 

CCP  « 0. 

00003420 

DCP  * HP  (I) 

00003430 

4 

CONTINUE 

00003440 

CALL  CBCALC(I) 

00003450 

TDHOR(I)  * CHLCC 

00003460 

5 

CONTINUE 

00003470 

IDHOR(I)  = I 

00003480 

6 

CONTINUE 

00003490 

C 

00003500 

LD  « LDHOR 

00003510 

IP  (PRNT.NE.O)  LD  * H A XO  (LD,  LDER  T) 

00003520 

CALL  TDSORT (TD  NOR,IDBOR,LD,N) 

00003530 

C 

00003540 

RETURN 

00003550 

END 

00003560 

SUBROUTINE  DPPR 

00003570 

c 

00003580 

C++i 

•*00003590 

c* 

SUBROUTINE  DPPR 

•00003600 

c* 

THIS  SUBROUTINE  CALCULATES  THE  DERIVATIVE  OP  LIFE  CICLE  COST  HITH 

•00003610 

c* 

RESPECT  TO  PPR  (FALSE  PULL  RATE). 

•00003620 

c* 

AFTER  ALL  DERIVATIVES  HAVE  BEEN  CALCULATED,  THE  SUBROUTINE  CALLS 

*00003630 

c* 

SUBROUTINE  TDSORT  TO  'BUBBLE  UP'  TO  THE  TOP  OP  ARRAT  IDPPR  THE 

•00003640 

•i  c* 

INDEX  NUMBERS  OP  THF  L DPPR  LARGEST  DERIVATIVES. 

•00003650 

••00003660 

1 c 

00003670 

1 

COMMON  /TD PPR/  I DPPR ( 200)  ,TDPPR  ( 200) 

00003680 

UJ  c 

00003690 

COMMON  /CNTL/  EXIT, ITER , HAXPHT, P RNT,  REDO , RER EA D 

00003700 

INTEGER  EXIT, PRNT, REDO, REREAD 

00003710 

J . c 

00003720 

i 

COMMON  /RD 1 / ADCM,ADPM,B,CAA,  CADRE,  CCH  P,  CDR,  C DHH,  CLR  , COR  P.CPR  I, 

00003730 

1 

♦ CPNP , CPHT, CRCT , DA A , DLR , DRCT , DS , 

00003740 

♦ PAC (10) , PCS , FSD,H,IHC,K,H,NCRS,HXHRS, 

00003750 

♦ NCP,NDP,NSP,OST,PIUP,PME,PPRS,PR  ODX, REPUR  B, RMC, 

00003760 

• 

♦ S A,  S AA  ,SMTBI,SOST  ,S  PRS  , SRCT,  SH.SHPAC, 

00003770 

♦ T C, TCCA  D,TE,TR,TH,THCAD,VAL, XUC ,YOH,TSCAD,TSLR 

00003780 

111 

M _ * 

I 


INTEGER  CADRE 

REAL  IHC,K,RCRS,HIHRS 

CORRON  /RD4/  INO  (200)  , LRNAHE  (200 ,24)  .LRPART  (200,  12)  , HCI  ( 200)  , 

♦ RTBI  1200)  , N , P A ( 200)  ,QPA  (2  00)  ,QR  (200)  ,RH  (200)  , 

♦ OC  (200) 

INTEGER  QPA.QR 

REAL  RTBI 

CORRON  /RD5/  BCHH  (200)  ,CBCHH(20C)  , CRH (200 ) ,CHTS1  (200)  ,CRTS2  (200)  , 

♦ DBCHH  (200  ) , DHR  (200)  ,DRTS1  (200)  , DRTS2(200)  , 

♦ ORTS  3 ( 200)  ,FPR  (200)  ,IRH  (200)  ,IN015  (200)  ,N15, 

♦ PARR  (200)  , RIP  (200)  , RL  (200)  , RRH  (200) , SR H (200)  , SRTS1  (200)  , 

♦ BOR1  (200)  ,MOR2  (200)  ,NOR3(200) 

REAL  INH 

INTEGER  RL 

CORRON  /SENS/  PINC, LDCH H, LDCRTS , LDDHH , LDDRTS , LDERV , L DEPR, LDPR , 

► LDHCI.LDRH.LDSRTS,  LDBOR.LDUC 

CORRON  /A0I1/  CCOND(200)  #COND(200)  .CRTS  (200)  ,DCOND(200)  , 

► DRTS  (200)  ,SNRTS(200)  , SETS  (200)  , NR  (200) 

CORRON  /AOX2/  TPR  (200)  ,NP R (200) 

CORRON  /A 0X4/  CAS  (200)  , DAS  (200)  , SAS  (200) 

CORRON  /A 0X5/  DSTM200)  ,ECHT,HCP  (200),  STK  (200)  ,STK1  (200)  ,Z 
INTEGER  STK, STM 

DO  5 I»1,N 

IP  (QPA(I)  • N E.  0)  GO  TO  1 
TDPPR(I)  « 0. 

GO  TO  4 

TDPPR(I)  = PINC  * PIOP  * TPR  (I)  * PPR(I)  * (SNRTS  (I)  * COND  (I)  ) 

♦ * CBCRH(I)  * CLR 

► ♦ DSTR(I)  * NPR  (I)  • PINC  * PPR(I)  * (SRTS  (I)  * SRCT 

» * (1.-  SRTS  (I))  * SOSI)  * XOC  • UC(I) 

IP  (CAS(I)  .GT.  .0001)  XI  - ().♦  B / (2.  * SORT  (CAS  (I)  )))  * «FR(I) 

► * PINC  • PPR(I)  * (1.-  SRTS  (I))  * CRCT  * XOC  * OC  (I) 
IP  (CAS  (I)  .GT.. 0001)  TDPPR  (I)  * TDPPR(I)  ♦ XI 

IDPPR(I)  » I 
CONTINDE 

LD  > LDPPR 

IP  (PRNT.NE.O)  LD  « R AXO  (LD, LDER T) 

CALL  TDSORT(TDPPR,IDPPR,LD,N) 

RE TORN 
END 

SOBROOTI RE  DCRH 


SOBROOTINE  DC HR 

THIS  SOBROOTINE  CALCOLATES  THE  DERITATIPE  OP  LIPE  CTCLE  COST  NITH 
RESPECT  TO  CRH  (AVERAGE  HAN-HRS  POR  CORRECTIVE  HAINTENANCE  AT  CRH) 
INCLODING  PAOLT  ISOLATION,  REROVAL,  AND  REPLACEHENT. 

AFTER  ALL  DERIVATIVES  HAVE  BEEN  CALCULATED,  THE  SOBROOTINE  CALLS 
SOBROOTINE  TDSORT  TO  * BOBBLE  OP'  TO  THE  TOP  OP  ARRAY  IDCRR  THE 
INDEX  NORBERS  OP  THE  LDCHH  LARGEST  DERIVATIVES. 


CORRON  /TDCHH/  IDCR H (200 ) , TDCRH  (200) 


00003790 
00003800 
00003810 
00003820 
00003830 
00003840 
00003850 
00003860 
00003870 
, 00003880 
00003890 
00003900 
, 00003910 
00003920 
00003930 
00003940 
00003950 
00003960 
00003970 
00003980 
00003990 
00004000 
00004010 
00004020 
00004030 
00004040 
00004050 
00004060 
00004070 
00004080 
00004090 
00004100 
00004110 
00004120 
) 00004130 
00004140 
T 00004150 
00004160 
1)00004170 
) 00004180 
00004185 
00004190 
00004200 
00004210 
00004220 
00004230 
00004240 
00004250 
00004260 
00004270 
00004280 
00004290 
••00004300 
•00004310 
*00004320 
.*00004330 
•00004340 
•00004350 
•00004360 
•00004370 
•*00004380 
00004390 
00004400 
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CCHHON  /CNTL/  EXIT, ITER , RAX PHT, PENT , REDO, REREAD 
INTEGER  EX  IT, PRNT, REDO, REREAD 

CORHON  /RD1/  A DCH, ADPN , B, CA A, CADRE .CCHP.CDR, CD HR ,CLB,CONE,CPNI, 

♦ CPHP.CPNT.CRCT,  DAA,  DLR,  DRCT,  D5, 

♦ PAC(IO)  , PCS , PSD , H , IRC  ,K,H,HCBS,HXHRS, 

♦ NCP,  NDP,NSP,OST,PIPP,  PNE,  PPR5,  PRODX,  REPUBB,  RRC, 

♦ SA, SAA,SHTBI,SOSI,SPR5,SRCT,SN,SHPAC, 

♦ TC,TCCAD,TE,TB,TH ,TRCAD, VAL.XUC.YOH, YSCAD, YSLR 
INTEGER  CADRE 

REAL  INC ,K,HCRS,NXHRS 

CCPHON  /RD4 / INO(20C|  , LRNARE(200,24)  ,LRPART(200,12)  ,HCI  (200)  , 

♦ HTBI  (200)  ,N,PA  (200)  , QPA  (200)  , OR  (200)  , Rfl  (200)  , 

♦ OC(200) 

INTEGER  QPA, OR 
REAL  HTBI 

CCHHON  /RD5/  BCHR  (2CC)  ,CBCBH  (20C)  ,CNH  (200)  .CRTS)  (200)  ,CRTS2(200) 

♦ DBCNH  (200)  , DHH  (200)  , DRTSl  (200)  , DHTS2  (200)  , 

♦ DRTS3  (200)  ,PPR  (200)  ,IHH  (200)  ,11015(200)  ,N15, 

♦ PANH  (200)  .RIP  (200)  ,RL(200)  ,RHH  (200)  ,SHH  (200)  ,SRTS1  (200) 

♦ VOR1  (200)  ,WOR2  (200)  ,HOR3(200) 

REAL  IRl  H 

INTEGER  RL 

CORHON  /SENS/  PI  RC,  LDC  nil , L DC  RTS  , LDDH  H,  L DDRTS  , LDERV  , LDPPR,  LDPR  , 

♦ L DH  Cl, LDRH, LDSRTS, LDHOR,LDUC 

CORHON  /AU X 1 / CCOND  (200)  ,COND(200)  , CRTS  (200)  ,DCOND  (200)  , 

♦ DRTS  (200)  , SNRTS  (200)  , SRTS  (200)  , NR  (200) 

CORNON  /AUX2/  EFR  (200)  ,BPR(200) 

DO  5 I«1,N 

IP  (QPA(I)  . N E.  0)  GO  TO  1 

TDCRH(I)  * 0. 

GO  TO  4 

TDCNH(I)  = PTOP  • TPR(I)  • CRTS(I)  • PINC  • CHH(I|  * CLR 
IDCRH(I)  * I 
CONTINUE 

LD  * LDCRH 

IP  (PRNT.NE.O)  LD  * HAXP  (LD,  LDERT) 

CALL  TDSORT (TDCHH,IDCRH,LD,N) 

RETURN 

END 

SUBROUTINE  DDRH 


SUBROUTINE  DDRH 

THIS  SUBROUTINE  CALCULATES  THE  DERIVATIVE  OP  LIFE  CYCLE  COST  BITH 
RESPECT  TO  DHH  (AVERAGE  HAN-HRS  POR  CORRECTIVE  HAINT.  AT  DEPOT) . 
INCLUDING  FAULT  ISOLATION,  REHOVAL,  AND  REPUCEHENT. 

AFTER  ALL  DERIVATIVES  HAVE  BEEN  CALCULATED,  THE  SUBROUTINE  CALLS 
SUBROUTINE  TDSORT  TO  'BUBBLE  UP'  TO  THE  TOP  OP  ARRAY  I DDRH  THE 
INDEX  NUHBERS  OP  TH r LDDNH  LARGEST  DERIVATIVES. 


CORHON  /TDDHH/  IDDH H (20? ) , TDDHH (203 ) 


00004*10 
00004420 
00004430 
00004*40 
00004450 
00004460 
00004470 
00004480 
00004490 
00004500 
00004510 
00004520 
00004530 
0000*540 
00004550 
00004560 
00004570 
00004580 
00004590 
, 00004600 
00004610 
00004620 
, 00004630 
00004640 
00004650 
00004660 
00004670 
00004680 
00004690 
00004700 
00004710 
00004720 
00004730 
00004740 
00004750 
00004760 
00004770 
0000*780 
00004790 
0000*800 
00004810 
00004820 
00004830 
00004840 
00004850 
00004860 
00004870 
00004880 
00004890 
00004900 
00004910 
>•00004920 
•00004930 
•00004940 
•00004950 
•00004960 
•00004970 
•00004980 
•00004990 
••00005000 
00005010 
00005020 
00005010 
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o o 


c 

c 


COHROR  /CRTL/  EXIT, ITEB,HAXPHT,PRRT, REDO, behead 
IITEGER  EXIT, PRRT, REDO, REREAD 

COHHON  /RDV  A OCR , A DPR  , B,CAA ,CADBE, CCHP,CDR,CDIH  ,CLB ,COHP,CPHI, 

♦ CPHP,CPTT,CRCT,  DAA,  DLS,  DRCT,  DS, 

♦ FAC(IO)  ,PCS,FSD,R,IHC,K,H,HCBS,HXHBS, 

♦ RCP,  IDP,  RSP,OST  ,PIOP,  PHE,  PPRS,  PRODX,  REPDRB, RHC, 

♦ SA,SAA,SHTBI,SOST,SPRS,SRC?,SR, S SFAC, 

♦ TC,TCCAD,TE,TB,TR,TRCAD,TAL,XOC, YOH.YSCAD.YSLR 
IITEGER  CADRE 

BEAL  IRC, B ,HCRS,HXHRS 

f.OHHOR  /RDM/  IRO  ( 200)  , LBHAHE  (200 ,2 4)  , LBPART (2 00 ,12)  , HCI  (200)  , 

♦ HTBT  (200)  ,R,  PA  (200)  ,QPA  (200)  , OR  (200)  , RH  (200)  , 

♦ OC(200) 

IITEGER  QP  A, QR 

REAL  HTBI 

COHRON  /RDV  BCNR  (200)  ,CBCHH  (200)  , CRH  ( 200)  , CRTS  1 (200)  , CRTS2  (200) 

♦ DBCH  H (200)  ,DHH(200)  ,DRTS1  (200)  ,DBTS2(20C)  , 

♦ DRTS  3(200)  , PPB  (200)  ,IRK(200)  ,11015  (200)  ,115, 

♦ PARR  (200)  , RIP  (200)  , RL  (200)  , RHR  (200)  , SR  H (200)  , SRTSl  (200) 

♦ HOtt  1 (200)  ,IOR2(200)  ,BOR3(200) 

REAL  IHH 

IITEGER  RL 

CCRROI  /SEIS/  PIRC, L OCR H.LDCBTS , LDDHH, LDDRTS, LDERT,  L DPPR,  L DPR  , 

♦ LDRCI,LDRR,LDSRTS,LDROB,LDOC 

COHROR  / AO  1 1 / CCOID  (200)  , CORD  (200)  ,CBTS  (2  00)  , DCOID  (200)  , 

♦ DRTS (200 ) ,SRRTS (200)  ,SRTS  (200)  , IB  (260) 

COHROR  /A0X2/  TPR  (200)  ,IPR  (200) 

DO  5 I«1,R 

IP  (QPA(I)  .RE.O)  GO  TO  1 
TDDHH(I)  * 0. 

GO  TO  • 

TDDRH(I)  > PIOP  * TPR  (I)  • DRTS(I)  • PIIC  • DHH(I)  * OLR 
IDDHH(I)  * T 
CORIROE 

LD  « LDDRH 

IP  (PUT. RE.O)  LD  > RAZO  (LD,  LDERT) 

CALL  TDS0RT(TDDRR,IDDRR,LD,I) 

RETORR 

BID 

SOBROOTIRE  DRH 


C 

C*** 

C* 

C* 

C* 

c* 
c* 
c* 


SOBROOTIRE  DRH 

TRIS  SOBROOTIRE  CALCOLATES  THE  DEBIT ATIVE  OF  LIFE  CYCLE  COST  IITH 
RESPECT  TO  RH  (PRACTIOR  OP  OC(I)  CORSORED  II  REPAIR  OP  LRO  I). 
AFTER  ALL  DERITATITES  HATE  BEER  CALCOLATED,  THE  SOBROOTIRE  CALLS 
SOBROOTIRE  TDSORT  TO  'BOBBLE  OP*  TO  THE  TOP  OP  ARRAY  I DRH  THE 
IRDEX  IOHBERS  OP  THE  LDRR  LARGEST  DERITATITES. 


COHROR  /TD  RH/  I DR  R (200)  ,TDRR  (200) 

COHROR  /CRTl/  EXIT, ITER, HAXPRT,PRHT, REDO, REREAD 
IRTEGER  EXIT, PRRT, REDO, REREAD 


000050M0 
00005050 
00005060 
00005070 
00005080 
00005090 
00005100 
00005110 
00005120 
00005130 
00005110 
00005150 
00005160 
00005170 
00005180 
00005190 
00005200 
00005210 
, 00005220 
00005230 
00005240 
, 00005250 
00005260 
00005270 
00005280 
00005290 
OOO0S3OO 
00005310 
00005320 
00005330 
000053*0 
00005350 
00005360 
00005370 
00005380 
00005390 
00005400 
00005*10 
00005420 
00005430 
00005*40 
00005*50 
00005460 
00005470 
00005*80 
00005*90 
00005500 
00005510 
00005520 
00005530 
•*000055*0 
•00005550 
•00005560 
*00005570 
*00005580 
•00005590 
•00005600 
••00005610 
00005620 
00005630 
000056*0 
00005650 
00005660 
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c 

C*< 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c*< 

c 


CONNON  /RD 1 / ADCN,  ADPN.B.CAA,  CADRE,  CCHP.CDR,  CDf  H.CLR  , CON  F,  CPNI, 

♦ CPHP , CP*T , CRCT.DAA, DLR  , DRCT, DS , 

♦ PAC(IO) ,FCS,PSD,H,IHC,K,H,NCRS,HIHRS, 

♦ NCP, NDP,NSP.OST,PIUP,PHE,PPRS,PRCDX,REPUBB,RNC, 

♦ SA,SAA,SNTBI,SOSI,SPBS,SRCT,SW,S8PAC, 

♦ TC,TCCAD,TE,TR,TH,T8CAD,VAL,IUC,TOH,YSCAD, TSLR 
INTEGER  CADRE 

REAL  INC,K.NCRS,NXHRS 

COB  NON  /RD4/  I NO  (200)  , LR  NAHE  (200 , 24)  , LRPA  RT  (200,  12)  , HC I (200)  , 

♦ NTBI  (200)  ,N.PA  (200)  ,QPA  (200)  ,0R(200)  ,RH(200)  , 

♦ UC  (200) 

INTEGER  QPA.QR 
REAL  NTBI 

CON NON  /SENS/  FIN C.LDCH H, LDCBTS, LDDHH , LDDRTS , LDERV , LDFPR, LDFR, 

♦ LDNCI.LDRN.LDSRTS,  LDHOB.LDUC 

CONNON  /AUX1/  CCOND  (200)  ,COND(200)  .CRTS  (200)  , DCOND(200>  , 

♦ DRTS(20P)  , SNRTS  (200)  ,SRTS(200)  ,HR(200) 


CONNON  /AUX2/  YFR  (2 00)  , NFR  (200) 

DO  5 1*1, N 

IF  (QPA(I)  . N E.  0 ) GO  TO  1 
TDRN  (I)  =0. 

GO  TO  4 

1 TORN  (I)  * PIOP  * TFR  (I)  * (1.-  HR(I))  * FINC  * RH  (I)  • XOC  ♦ 

♦ OC(I) 

4 I DR  N (I)  * I 

■5  CONTINOE 

LD  * LDRN 

IF  (PRNT.NE.O)  LD  - HAXO  ( LD.  LDERT) 

CALL  TDSORT(TDRH,IDPN,LD,N) 

RETIIRN 

END 

SOBROOTINF  DSRTS 


SUBROUTINE  DSRTS 

THIS  SUBROUTINE  CALCULATES  THE  DERIVATIVE  OF  LIFE  CYCLE  COST  RITH 
RESPECT  TO  SRTS  (FRACTION  OF  FAILURES  REPAIRED  AT  SITE) . 

THE  CALCULATION  OF  TDSRTS(I)  IS  DONE  BY  LETTING  SUBROUTINE  CHCALC 
CALCULATE  CHLCC  * F (SF, CF, DF.S CF.CCF, DCF)  FROH  THE  VALUES  OF  SF.CF 
DF.SCF, DCF.CCF  THAT  ARE  SUPPLIED  BY  THIS  SUBROUTINE  AND  THEN  BY 
SETTING  TDSRTS(I)  « CHLCC. 

AFTER  ALL  DERIVATIVES  HAVE  BEEN  CALCULATED,  THE  SUBROUTINE  CALLS 
SUBROUTINE  TDSOPT  TO  'BUBBLE  UP'  TO  THE  TOP  OF  ARRAY  I DSRTS  THE 
INDEX  NUHBERS  OF  THE  LDSRTS  LARGEST  DERIVATIVES. 


CONNON  /TDSRTS/  I DSRTS  (200)  .SFSRTS  (200)  .TDSRTS  (200) 

CONNON  /CNTL/  EX  IT,  ITER  , N AXPNT  , PRNT  , REDO,  RER  E AD 
INTEGER  EXIT, PRNT, REDO, REREAD 

CONNON  /RD4/  INO  ( 20P)  , LR N ARE  (200 , 2 4)  , LRPART(2 00 , 12)  , NCI  (200)  , 

► NTBI  (200)  , N,  PA  (200)  ,QPA  (200)  ,QR  (200) , RN  (200)  , 

► UC  (200) 

INTEGER  QP A, OR 


00005670 

00005680 

00005690 

00005700 

00005710 

00005720 

00005730 

00005740 

00005750 

00005760 

00005770 

00005780 

00005790 

00005800 

00005810 

00005820. 

00005830 

00005840 

00005850 

00005860 

00005870 

00005880 

00005890 

00005900 

00005910 

00005920 

00005930 

00005940 

00005950 

00005960 

00005970 

00005980 

00005990 

00006000 

00006010 

00006020 

00006030 

00006040 

00006050 

00006060 

00006070 

•00006080 

•00006090 

•00006100 

*00006110 

•00006120 

,•00006130 

*00006140 

•00006150 

*00006160 

•00006170 

•00006180 

•00006190 

00006200 

00006210 

00006220 

00006230 

00006240 

00006250 

00006260 

00006270 

00006280 

00006290 
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BEAL  STB  I 

connoN  /sens/  fi nc,  ldc  nH,  ldcrts, lddh h,  lddrts , L DEB V , LDPPR  , LDPR, 

♦ LDHCI.LDRH, ldsrts, ldnor, ldoc 

COBRON  /A 0X1/  CCOBD  (2 CO)  , CORD  (200)  , CRTS  (20C)  , DCOBD  (200)  , 

♦ DRTS  (200)  ,SNRTS(200)  ,SRTS(200)  ,HB(200) 

COBBON  /CHLCC/  CCP,  CP,  CHLCC.  OCF,  DF,  SCF,  SF 
DO  6 1=1, N 

IF  (QPA(I) .RE.0)  GO  TO  1 
TDSRTS  (I)  =0. 

SFSRTS(I)  » 0. 

GO  TO  5 

SF  = ARIR1  (FIBC,  1 . - (CCOND(I)  ♦ DCOBD(I)  ♦ SBTS(I))) 
SFSRTS(I)  = SF 
IF  (SF.GT.  0. 000C1 ) GO  TO  2 
TDSRTS  (I)  =0. 

GO  TO  5 
COBTIHOE 
DCF  = 0. 

IF  (COHD  (I)  .LT.  .99999)  GO  TO  3 
SCF  = -1  . 

CCF  = 1.  - SF 
CF  * 0. 

DF  = 0. 

GO  TO  4 
CCF  » 0. 

SCF  =0. 

CF  * (-1.  • CRTS ( I)  * SF)  / (CRTS  (I)  ♦ DRTS  (I) ) 

DF  = (-1.  • DRTS  (I)  • SF)  / (CBTS  (I)  ♦ DRTS  (I) ) 

COBTIBOE 
CALL  CHCALC(I) 

TDSRTS  (I)  « CHLCC 
COBTIBOE 
IDSRTS  (I)  « I 
COBTIBOE 

LD  « LDSRTS 

IF  (PRHT.BE.O)  LD  = HAIO  (LD.LDERV) 

CALL  TDSORTJTDSRTS, IDSRTS, LD,H) 

RETORB 

EBD 

SOBROOTIHE  DCRTS 


SOBROOTIBE  DCRTS 

THIS  SUBROUTINE  CALCOLATES  THE  DEB IFATITE  OF  LIFE  CTCLE  COST  BITH 
RESPECT  TO  CRTS  (PRACTIOR  OF  FAILURES  REPAIRED  AT  THE  CRF) . 

THE  CA  LC OLATIOH  OF  TDCRTS(I)  IS  DOBE  BI  LETTING  SOBROOTIHE  CHCALC 
CALCOLATE  CHLCC  « F (SF, CF, DF, SCF, CCF, DCF)  FROH  THE  VALUES  OF  SP,CF 
DF, SCF, DCF, CCF  THAT  ARE  SUPPLIED  BT  THIS  SUBROUTINE  AND  THEN  BT 
SETTING  TDCRTS ( I)  • CHLCC. 

AFTER  ALL  DERIVATIVES  HAVE  BEER  CALCULATED,  THE  SOBROOTIBE  CALLS 
SUBPOOT IBB  TDSORT  TO  'BUBBLE  UP*  TO  THE  TOP  OF  ARRAY  IDCRTS  THE 
INDEX  NUHBERS  OF  THE  LDC RTS  LARGEST  DERIVATIVES. 


COHHOB  /TDCRTS/  C PCRTS  (200)  , IDCRTS  ( 200)  , TDCRTS  (200) 
COH HOB  /CNTL/  EX  IT,  ITER , HAXPHT  , PRBT  , REDO,  REREAD 


00006300 

00006310 

00006320 

00006330 

00006340 

00006350 

00006360 

00006370 

00006380 

00006390 

00006400 

00006410 

00006420 

00006430 

00006440 

00006450 

00006460 

00006470 

00006480 

00006490 

00006500 

00006510 

00006520 

00006530 

00006540 

00006550 

00006560 

00006570 

00006580 

00006590 

00006600 

00006610 

00006620 

00006630 

00006640 

00006650 

00006660 

00006670 

00006680 

00006690 

00006700 

00006710 

00006720 

00006730 

00006740 

00006750 

00006760 

*•00006770 

*00006780 

•00006790 

•00006800 

*00006810 

,*00006820 

•00006830 

•00006840 

•00006850 

•00006860 

•00006870 

•*00006880 

00006890 

00006900 

00006910 

00006920 


. 


c 

c 


c 

c*« 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


INTEGER  EX  IT  , P RNT,  R EDO  , RER  EAD 

COHBON  /RDtt/  I NO  ( 200)  ,LRN»BE  (200,24)  ,LR  PART  (200, 12)  , BCI (200)  , 

♦ BTBI  (200)  ,N,PA(200)  ,QPA  (200)  ,08  (2  00),  HR  (200)  , 

♦ 11C  (200) 

INTEGPR  QP  A,  QR 

REAL  BTBI 

COBBON  /SENS/  PI  BC,  LDCRH,  LDCRTS  , LDDH  H,  L OORTS  , L DERV  , L DPPR,  LDPR, 

♦ LDHCI,LDRB,LDSRTS,LDHOR,LDUC 

COBBON  /AUXl/  CCORD  (200)  ,CO»D(200)  .CRTS  (200)  ,DCORD(200)  , 

♦ DRTS (200)  , SNRTS (200)  ,SRTS(200)  , HR  (200) 


COBHON  /CH LCC/  CCP, CP, CHLCC,  DCP,  DP,  SCP,  SP 
DO  6 I=1,N 

IP  (OP*  (I)  .NE.O)  GO  TO  1 
TDCRTS(I)  « 0. 

CPCRTS  (I)  * 0. 

GO  TO  5 

1 CP  = AHIN1 (PINC.1 .-  (CCOND(I)  ♦ DCOND(I)  ♦ CRTS  (I)  ) ) 
CPCRTS  (I)  * CP 

IP  (CP.GT.  0.00001)  GO  TO  2 
TDCRTS  (I)  =0. 

GO  TO  5 

2 CONTINnE 
DCF  « 0. 

IP  (COND  (I)  .IT.  .99999)  GO  TO  3 
SCP  * -1. 

CCP  » 1.  - CP 
SF  = 0. 

DP  * 0. 

GO  TO  * 

3 CCP  * 0. 

scp  - o. 

SF  = (-1.  * SRTS(I)  * CP)  / (SRTS(I)  ♦ DRTS  (I)) 

DP  = (-1.  * DRTS  (I)  • CP)  / (SRTS(I)  ♦ DRTS  (I)  ) 

« CONTINUE 

CALL  CHCALC  (I) 

TDCRTS  (I)  * CHLCC 

5 CONTINUE 
IDCRTS  (I)  * I 

6 CONTINUE 

LD  * LDCRTS 

IF  (PR NT. NE.O)  LD  * BAXO  (LD,  LDERV) 

CALL  TDSORT(TDCRTS, IDCRTS, LD,N) 

RETURN 

END 

SUBROUTINE  DDRTS 


SUBROUTINE  DDRTS 

THIS  SUBROUTINE  CALCULATES  THP  DERIVATIVE  OP  LIFE  CTCLE  COST  NITH 
RESPECT  TO  DRTS  (FRACTION  OP  FAILURES  REPAIRED  AT  DEPOT) . 

THE  CALCULATION  OP  TDDRTS(I)  IS  DONE  BT  LETTING  SUBROUTINE  CRCALC 
CALCULATE  CHLCC  » P (S P, CP, DP,S CP, CCP,  DCP)  PROH  THE  VALUES  OP  SP,CP 
DP, S C f, DCP, CCP  THAT  ARE  SUPPLIED  BE  THIS  SUBROUTINE  AND  THEN  BT 
SETTING  TDDRTS (I)  a CHLCC. 

AFTER  ALL  DERIVATIVES  HAVE  BEEN  CALCULATED,  THE  SUBROUTINE  CALLS 
SUBROUTINE  TDSORT  TO  'BUBBLE  UP'  TO  THE  TOP  OP  ARRAY  IDDRTS  THE 


000069  30 
00006940 
00006950 
00006960 
00006970 
00006980 
00006990 
00007000 
00007010 
00007020 
00007030 
000070U0 
00007050 
00007060 
00007070 
00007080 
00007090 
00007100 
00007110 
00007120 
00007130 
000071*0 
00007150 
00007160 
00007170 
00007180 
00007190 
00007200 
00007210 
00007220 
00007230 
000072*0 
00007250 
00007260 
00007270 
00007280 
00007290 
00007300 
00007310 
00007320 
00007330 
000073*0 
00007350 
00007360 
00007370 
00007380 
00007390 
00007*00 
00007*10 
00007*20 
00007*30 
00007**0 
00007*50 
*00007*60 
•00007*70 
•00007*80 
•00007*90 
•00007500 
,•00007510 
*00007520 
•00007530 
•000075*0 
•00007550 
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noon  n r>  i n o n nono 


I 


C*  INDEX  RUBBERS  Or  THE  LDDRTS  LARGEST  DERIVATIVES. 


COHHON  /TDDRTS/  DFDRTS  (200)  , IDDBTS  (200)  , TDDRTS  (200) 

COH HON  /CNTL/  Eli T, ITER, HAXPHT, PRNT, REDO, BER EAD 
INTEGER  EXIT, PRNT, HEDO, REREAD 

COHHON  /RD«/  INO(200)  , LRNAHE(200,24)  ,LBPART  (200,  12)  ,NCI  (200)  , 

♦ HTBI  (200)  , N , P A (200)  ,QPA  (200)  ,QB  (200)  , RH  (200)  , 

♦ 0C  ( 200) 

INTEGER  0PA,QR 
REAL  HTBI 

COHHON  /SENS/  PIN  C,  LDCHH,  LDCBTS  , LDDHH,  LDDRTS  , LDERV  , LDfR  , LDFR  . 

♦ LDHCI.LDRH.LDSPTS,  LDNOB.LDUC 

COHHON  /AUX1/  CCOND(200)  ,COND(200|  .CRTS  (200)  , DCOND  (200) , 

♦ DRTS  (200)  ,SNRTS  (200)  ,SRTS  (200)  ,HR(200) 

COHHON  /CHLCC/  CCE,  CP,  CHLCC,  DCF,  DF,  SCE  ,SF 
DO  6 1*1, N 

IF  (QPA(I)  • N E.  0 ) GO  TO  1 
TDDRTS  (I)  * 0. 

DFDRTS  (I)  *0. 

GO  TO  5 

1 DF  * AHIN1(FINC,  1.-  (CCOND(I)  ♦ DCOND(I)  ♦ DRTS  (III) 

DFDRTS  (I)  = DF 

IF  (DF.GT. 0.00001)  GO  TO  2 
TDDRTS  (I)  * 0. 

GO  TO  5 

2 CONTINOE 
CCF  - 0. 

IF  (COND(I)  .LT.  .99999)  GO  TO  3 
SCF  * -1  . 

DCF  » 1.  - DF 
SF  * 0. 

CF  * 0. 

GO  TO  4 

3 DCF  * 0. 

SCF  * 0. 

SF  * (-1.  * SRTS(I)  • DF)  / (SRTS(I)  ♦ CRTS  (I) ) 

CF  * (-1.  * CRTS  (I)  * DF)  / (S RTS  (I)  ♦ CRTS  (I)  ) 

4 CONTINUE 
CALL  CHCALC(I) 

TDDRTS  (I)  * CHLCC 

5 CONTINUE 
IDDRTS(I)  * I 

6 CONTINUE 

LD  * LDDRTS 

IF  (PRNT.NE.O)  LD  * HAXO  (LD,  LDERV) 

CALL  TDSORT (TDDRTS, I DDRTS,LD,N) 

RETURN 

END 

SUBROUTINE  DHCI 


SUBROUTINE  DHCI 

THIS  SUBROUTINE  CALCULATES  THE  DERIVATIVE  OF  LIFE  CYCLE  COST  NITH 
C*  RESPECT  TO  HCI  MISSION  CRITICAL  INDICATOR) . 


*00007560 
*00007570 
00007580 
00007590 
00007600 
00007610 
00007620 
00007630 
00007640 
00007650 
00007660 
00007670 
00007680 
00007690 
00007700 
00007710 
00007720 
00007730 
00007740 
00007750 
00007760 
00007770 
00007780 
00007790 
00007800 
00007810 
00007820 
00007830 
00007840 
00007850 
00007860 
00007870 
00007880 
00007890 
00007900 
00007910 
00007920 
00007930 
00007940 
00007950 
00007960 
00007970 
00007980 
U0007990 
00008000 
00008010 
00008020 
00008030 
00008040 
00008050 
00008060 
00008070 
00008080 
00008090 
00008100 
00008110 
00008120 
000081  30 
00008140 
•00008150 
•00008160 
*00008170 
•00008180 
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c* 

c* 

c* 

c*< 

c 


AFTER  ALL  DERIVATIVES  HAVE  BEEN  CALCULATED;  THE  SUBROUTINE  CALLS 
SUBROUTINE  TDSORT  TO  ' BUBBLE  UP*  TO  THE  TOP  OF  ARRAT  IDHCI  THE 
INDEX  NUHBERS  OF  THl  LDHCI  LARGEST  DERIVATIVES. 


C 

c*< 

c* 


COn HON  /TDHCI/  IDHCI  (200)  , HCIC  (200)  , TDHCI  <200 ) 

COHHON  /CNTL/  EXIT,  ITFR,  HAXPHT,  P RNT,  REDO  , REREAD 
INTEGER  EXIT, PRNT, REDO, REREAD 

COHHON  /RD 1 / ADCH,ADPH,B,CAA,CADRE,CCHP,CDR,CDNH,CLR,CONP,CPni, 

♦ CPHP, CPHT,CRCT, DAA , DLR , DRCT, DS, 

♦ FAC(19)  , PCS  , FSD,fl,IHC,K,H,  HCRS,  H X HRS, 

♦ NCP,NDP,NSP,OST,PIUP,PHE,PPRS,PRODX,REFURB,RHC, 

♦ S A, S AA, SHTBI , SOSI , SPRS , SRCT, SB, SHF AC, 

♦ TC, TCCAD.TE.TR, TR,TRCAD,VAL,XUC,TOH,TSCAD, TSLR 
INTEGER  CADRE 

REAL  inC.K.nCRS.HXHPS 

COHHON  /RD4/  I NO  (20C ) , LRNAHE  (200 , 24)  , LRP ART  ( 200,  12)  , HCI  (200)  , 

♦ HTBI  (200)  ,N , PA  (200)  ,QPA  (200)  ,0R(200)  ,RH  (200)  , 

♦ UC  (200) 

INTEGER  QPA.QR 

REAL  HTBI 

COHHON  /SENS/  FIN C, LDCH H, LDCRTS, LDDHH , LDDRTS , LDERV , LDFPR, LDFR, 

♦ LDHCI, LDRH,LDSRTS,LDNOR,LDUC 

COHHON  /AUI2/  TFR  (200 ) , RFR  (200 ) 

COHHON  /AUX5/  DSTN  (200  ) ,ECHT,HCF(200)  , STK  (200 ) , STK  1 (200)  ,Z 
INTEGER  STK,  STK  1 

DO  5 1*1,  N 
HCIC  (I)  - 0 

IF  (OP  A (I)  .NE.O)  GO  TO  1 
TDHCI  (I)  = 0. 

GO  TO  4 

1 LI  = STK  1(1)  ♦ QR(I) 

IF  (HCI  (I)  .EQ.1)  HCIC  ( I)  * 1 
IF  (HCI  (I)  • EQ  • 2)  HCIC(I)  = -1 
IF  (LI  .EQ.O.  AND.  HCI  (I)  • NE.O)  GO  TO  2 
TDHCI  (I)  = 9. 

GO  TO  4 

2 CONTINUE 

IF  (HCI  (I)  . EQ.  2 ) HCC  * 1. 

IF  (HCI  ( I)  .EQ.  1)  HCC  = -1. 

TDHCI  (I)  = PIUP  * TFR(I)  • FLOAT  (HCC)  * (CCHP  • ADCH  * CDR  ♦ H) 

♦ - FLOAT  (HCC)  • FLOAT  (H)  * XUC  * UC(I) 

4 IDHCI  (I)  = I 

5 CONTINUE 

LD  * LDHCI 

IF  (PRNT. NE.O)  LD  * HA  X1'  ( LD,  LDERV) 

CALL  TDSORT(TDHCI, IDHCI, LD.N) 

RETURN 

END 

SUBROUTINE  CHCALC  (I)  ' 

••••••••••'••a*********** *•••*•••*•••••• 

SUBROUTINE  CHCALC 

BECAUSE  OF  3 RE  AT  SIHILARITIES  IN  THE  EQUATIONS  FOR  THE  DERIVATIVES 


•09008190 

•00008200 

•00008210 

*00008220 

00008230 

00008240 

00008250 

00008260 

00008270 

00008280 

00008290 

00008300 

00008310 

00008320 

00008330 

00008340 

00008350 

00008360 

00008370 

00008380 

00008390 

00008400 

00008410 

00008420 

00008430 

00008440 

00008450 

00008460 

00008470 

00008480 

00008490 

00008500 

00008510 

00008520 

00008522 

00008540 

00008550 

00008560 

00008570 

00008572 

00008574 

00008580 

00008590 

00008600 

00008610 

00008620 

00008630 

00008650 

00008660 

00008670 

00008680 

00008690 

00008700 

00008710 

00008720 

00008730 

00008740 

00008750 

00008760 

00008770 

•00008780 

•00008790 
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noon  n noon  n n nooonono 

* • * • 


c* 


OF  TDSRTS,  TDCRTS,  TDDRTS,  AND  T DU  OR,  THE  PROGHAH  USES  SUBROUTINE 
CHCALC  TO  CALCULATE  THE  FOUR  DERIVATITES.  THE  FOUR  CALLING 
ROUTINES  (DSRTS,DCRTS,DDRTS,DUOR)  SET  VARIABLES  S F,  CF,  DF.DCF,  SCF, 

AND  CCF  BEFORE  CALLING  CHCALC.  CHCALC  USED  THESE  SIX  VARIABLES  AS 
PARAHETERS  TO  A SINGLE  FUNCTION  TO  SET  VARIABLE  CHLCC  TO  THE  VALUE 
OF  THE  DERIVATIVE.  HENCE,  CHLCC  « F (CF,  SF.  DF  , CCF, DCF , SCF)  . 

COHHON  /CHLCC/  CCF,CF, CHLCC, DCF, DF. SCF, SF 

CORHON  /RD  1/  ADCH.ADPR  ,B, CAA, CADRE,  CCRP,  CDR.CDUH.CI.R  ,CONF,CPHI, 

♦ CPRP.CPUT.CRCT,  DA  A,  DLR,  DRCT,  DS, 

♦ FAC (10) , FCS , FSD ,H,INC,K,N,HCRS,NXHRS, 

♦ NCP,NDP,NSP,OST,PIUP,  PHE,  PPR3,  PRODX,  RFFORP.  ?»C  , 

♦ SA,  SAA, SBTBI,  SO  SI,  SPRS,  SRCT.SU, SHF  AC, 

♦ TC.TCCAD,  TE  , T R,  TU  , TUC  A D,  V AL,  XUC,  TOH,  ISCA  i',  I .sLP 
INTEGER  CADRE 

REAL  INC,K,HCRS,RXHRS 

CORHON  /RD4/  I NO  (200)  , LB  HARE  (203, 24)  ,LRPART  (200,  12) , RC  I (200)  , 

♦ HTBI  (200)  ,N , PA  (200)  ,QPA  (200)  ,QR(200)  ,RR(200)  , 

♦ 0C(200) 

INTEGER  QPA.QR 

REAL  HTBI 

CCHNON  /RD5/  BCBH  (200)  ,CBCHH  (200)  ,CHH  (200)  ,CRTS1  (20C)  ,CRTS2  (200)  , 

♦ DBCRH  ( 200 ) , DRH  (200)  ,DRTS1  (200)  .DRTS2  (200)  , 

♦ DRTS3  (200)  ,FP8  (20  0)  ,IHH  (200)  ,INO15(200)  ,N  15, 

♦ PAHH  (200)  ,RIP  (200)  ,RL(2  00)  , RHH  (2  00)  ,SRH  (200)  ,SRTS1  (200)  , 

♦ UORl  (200)  ,UOR2  (200)  ,UOR)(200) 

REAL  IRH 

INTEGER  RL 

CGBHON  /AUX2/  IEB  1200)  ,VPR  (200) 

COHRON  /AU  X4 / CAS  ( 200 ) , DAS  (200)  , SA S (200) 

CCRHON  /AUX5/  DST K ( 200 ) , ECRT , HCP  (2 00)  , STK  (200)  , STK1  (200 ) ,Z 
INTEGER  STK.STK1 

XI  = PIUP  * TFR(I)  * (((!.♦  FPR(I))  • (-1.*  (SF  ♦ SCF))  • CBCHH(I) 

♦ ♦ CF  * CHH(I)  ♦ P PR  ( I)  • SCF  * CBCHH(I))  * CLR 

♦ ♦ ((DCF  ♦ DF)  * DBCRH  ( I)  ♦ DF  * DR  H ( I) ) * DLR) 

♦ ♦ DSTK  (I)  * UFR(I)  • (1.»FPR(I))  * SF  * (SRCT  - SOSI) 

» • IUC  * UC  (I) 

IF  (CAS(I)  .LB.  0.0001)  X2  * 0. 

IF  (CAS  (I)  .GT. 0.0001)  X2  = (1.»  B / (2.*  SQRT  (CAS  (I)  ) ) ) • UFB(I) 

♦ * (FPR(I)  * (-1.)  * SF  • CRCT  ♦ CF  • CRCT 

♦ ♦ (CCF  ♦ DF  ♦ DCF)  * (OST  ♦ SOSI  / 2.)  ♦ SCF  • OST) 

♦ * XUC  • OC(I) 

IF  (DAS(I)  .LE. 0.0001)  X3  * 0. 

IF  (DAS(I)  .GT. 0.0001)  X 3 = (1.*  B / (2.*  SQRT  (DAS  (I)  )) ) • HFR(I) 

♦ • DF  * DHCT  * XUC  * UC(I) 

X4  * PIUP  * TFR(I)  * (SCF  ♦ CCF  ♦ DCF)  • (l.-RH(I))  • XUC  • UC  (I) 

CHLCC  * XI  ♦ X2  ♦ X3  ♦ X4 

RETURN 

END 

SUBROUTINE  TDSORT (TD, ID, LD  , N ) 

►**•*•*•*  ••••••••••••••••••••••••••••••••••••••'A*****  *****••*•••••« 

SUBROUTINE  TDSORT 

THIS  SUBROUTINE  'BUBBLES  UP'  TO  THE  FIRST  -LD-  POSITIONS  IN  ARRAT 


•00008810 
•0000B82C 
•00008830 
•00008840 
•00008850 
•00008860 
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00008890 
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00008970 
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00009030 
00009040 
00009050 
00009060 
00009070 
00009080 
00009090 
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•00009430 
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o n 


onnnnono 


T 


SUBROUTINE  0TAB1 


THIS 


SUBROUTINE  0TAB1  PRINTS  OUTPUT  TABLE  1. 

TABLE  CONSISTS  OR  SISTER  TOTALS  IN  BILLIONS  OF  DOLLARS.  ERROR 
RESSAGES  ARE  PRINTED  BENEATH  THE  TABLE  IN  THE  ETENT  THAT  CERTAIN 
DESIGNATED  DATA  CONSTRAINTS  ARE  NOT  NET. 


COHHON  /CNTL/  El IT, ITER , HAXPHT , PENT , REDO, REREAD 
INTEGER  EXIT, PRNT, REDO, REREAD 

COHHON  /RD 1/  ADCH.ADPH .B.CAA, CADRE, CCHP.CDR, CDWH,CLR, CONE, CPHI, 

♦ C PHP  ,CPBT  ,CRCT,  DA  A,  DLR  , DRCT  , DS, 

♦ EAC(IO)  , ECS  ,ESD,H,IHC,K,H,HCRS,HXHRS, 

♦ NCP,  NDP,NSP,OST,PIUP,  PHE,  PPRS,  PRODX,  REFUR  B,  RNC  , 

♦ SA,  SAA,SRTBI,SOSI,SPRS,SRCT,SB,SHPAC, 

♦ TC, TCCAD, TE ,TR,TH,THCAD,IAL, XUC ,TOH,TSCAD,TSLR 
INTEGER  CADRE 

RFAL  IHC,K,HCRS,HXHRS 

COHHON  /NCOS/  CLH ,PHFA (10 ) , SHIR , S PNH ,STHH 
COHHON  /AUX3/  CCL  H (2 0 ' ) , DCLH  (2031  , D LH 
COHHON  /Cl  / Cl 

COHHON  /C2/  C2,C2C,C2D,C2l  (200)  ,C2S 
COHHON  /C3/  C3,C3C,C3D,C3L  (200)  ,C3S 
CCHHON  /C«/  C4,C4I,C4L  (200)  , C4  « 

COHHON  /C5/  CS 

COHHON  /C6/  C6 , C6C,  C6D,C6 1, C6R  ,C6S 
COHHON  /C7/  C7 

COHHON  /C8/  C8,CHC,C8D,C8I,C8R,C8S 

COHHON  /C9/  C9,C9C,C9D,C9I,C9L  (200)  .C9R.C9S 

COHHON  /CIO/  C10,C10HB  (10)  ,C  10 1 ,C  10R  ,C  10SN  ( 10) 


PORHAT  (1H1,24X,3C HOUTPUT  TABLE 

► 15H(*  IN  BILLIONS)/) 

PORHAT  (1H0) 

PORHAT  ( 41 , 1 28  PROGRAH  COST, 6X, 11 

► 10HPRODUCTION,3X,7HSUPPORT,4X, 
24H  PRIHE  HISSION  EOUIPHENT/ 

1 1 H HARDBARE,11X,9H  0.0 

1 1 H SO8TBARE,16X,4R0.0  ,P12. 

168  REPURBISHHENT, 11X,UH0.0 
18H  DESIGN  VALIDATION,4X,P9.2, 
2 38  PULL  SCALE  DEVELOPHENT ,P 8 . 
1 78  ASSOCIATED  COSTS  , 10  X,  4 HO  . 0 
98  SPARES  , 1 8X , 480 • 0 ,P17.2,P 
12H  HAINTENANCE,15X,4H0. 0 ,9X, 
128  CONSUHAHLES,  151, 480.0  ,8X, 
188  SUPPORT  EQUIPHENT,9X, 480.0 
1 1 H FACILITIES,  16X, 480. 0 ,P12. 
98  TRAINING, 18X.4H0.0  ,F12.2.F 


1j  SISTER  TOTALS/31X, 


HDETELOPHENT, 2 X , 

5RTOTAL,  2X,  6 8 * HB  // 

, P12. 2, 7X,4H0.0  , Pi 1.2.P7.1/ 
2,7X,4H0.C  , P11.2, P7. 1/ 
,P12.2,7X,4H0.0  ,P11. 2,87.1/ 
8X,4H0.0  , 71 , 4 HO . 0 ,811.2,87.1/ 
2,8X,4HO.O  , 7 X ,4H0 . 0 ,811.2,87.1 
,812.2, 7X, 4H0 .0  ,811.2,87.1/ 
11.2,811.2,87.1/ 

4HO.O  ,811.2,811.2,87.1/ 

480.0  ,811.2,811.2,87.1/ 
,812.2,811.2,811.2,87.1/ 
2,7K,4HO.0  ,811.2,87.1/ 
11.2.811.2,87.1/ 


00000010 
00000020 
•000000  30 
•00000040 
•00000050 
•00000060 
•00000070 
**00000080 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
0O000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
C0000440 
00000450 
00000460 
00000470 
0C000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
/ 00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000630 
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♦ 21H  INTERTORY  HARAGERERT  ,6 1, *H0 . 0 , PI  2.  2,  Pi  1 . 2,  P1 1 . 2,  P7. 1 / 000006*0 

♦ 21H  SOPTRARE  HAIRTENANCE,6X,»H0.0  , P 1 2.  2,  P 1 1 . 2.  P1 1 . 2,  P7. 1//  00000650 

♦ *x , 1 1RTOT  AL  COST:, *X, 2P12.2,  2P1 1 . 2/)  00000660 

C 00000670 

« PORE  AT  ( 40  H ***••  ERROR.  THE  POLLOWIRG  CONSTRAINT  , 00000680 

♦ 1 RH HAS  ROT  RET:  • •**•)  00000690 

C 00000700 

5 PORRAT  (40H  ANAOAL  OR-RADAR  RAIRT.  HAR-HRS  BT  SITE  , 00000710 

♦ 10HPERSORNEL:,P11.0,3H  <«,P7.0)  00000720 

C 000007  JO 

6 PORRAT  (4 1 H ANROAL  OPP-RAOAR  RAIRT.  HAR-HRS  BT  SITE  . 000007*0 

♦ I^HPERSORN  EL  P 10 . 0)  00000750 

C 00000760 

7 PORRAT  ( 29X, 6HTOT AL:,15X,P11.0,3H  < = ,P7.0/)  00000770 

C 00000780 

8 PORRAT  ( 35H  ANROAL  IRTERHEDIATB  (CHP)  HAR-HRS 151,  P1 1 .0,  00000790 

♦ 3H  <»,  P7.1)  00000800 

C 00000810 

9 PORRAT  ( 3UH  ANROAL  DEPOT  HAIRTERANCE  HAR-HRS 161, P1 1 . 0 , 00000820 

♦ 3H  <»,P7.0)  00000830 

C 000008*0 

C*** •*•*•*•*••••*•*•**•••••***••••****••*•••••*••••••••••••••••••••••*••00000850 

C*  COHPUTE  ALL  COSTS  IRTOLTING  EQ OATIONS  AS  HELL  AS  *(PHE*X0q  COSTS.*  00000860 
C***  ******•*************•*•****•**•••*••*••*•••**•**•••*•••*•••***•••***00000870 
C 00000880 

TER1A  * 100.  00000890 

TEH  1 B = (SH  / (PHE  * XOC) ) * 100.  00000900 

T EH  1C  = fREPORB  / (PHE  * XOC))  * 100.  00000910 

TEH1D  « (VAL  / (PHE  * XOC))  • 100.  00000920 

TEH1E  « (PSD  / (PHE  * XOC))  • 100.  00000930 

TEH1P  * ( PRODX  / (PHE  * XOC))  • 100.  000009*0 

TEH2  = (C3*C*I)  / 1000000.  00000950 

TEH 3 « (C3»C4)  / 1000000.  00000960 

TEH*  * ( (C3*C4)/(PHE*X0C) ) * 100  00000970 

TEH5  * (C2/ (PH  E*X  OC) ) • 100  00000980 

TEH6  * (C5/( PRB'XOC) ) • 100  00000990 

TEH7  » (C6/(PHE*XUC) ) * 100  00001000 

TEH8  * ( C7/ ( PH E*X OC) ) * 100  00001010 

TEH9  » (C8/(PHE*X0C) ) • 100  00001020 

TEH10  ■ (C9/ (PHE*  XOC))  • 100  00001030 

TEH11  * (C 10/( PHB*XUC) ) • 100  00001040 

C 00001050 

C*** •••••••**••••***••••••••••••*•••**•****•••••***•••*••*•*•*•••••••*•*0000 1060 

C*  COHPUTE  DETELOPHERT,  PRODOCTIOR,  SUPPORT , AND  STSTEH  TOTAL  *00001070 

C*  COST  IN  HILLTONS  OP  DOLLABS.  *00001080 

C***«* •••••*•••••*00001 090 

C 00001100 

TOT1  * (TAL  ♦ PSD)  / 1000000.  00001110 

TOT2  = (PH  E*  XUC*S  H»REPUR  B*  PRODX*C  3*C4I*C6l*C7  ♦C8I*C9  I*C  101)/  00001120 

♦ 1000000.  00001130 

TOT 3 = (C4R*C2*C5*C6R»C8R*C9R*C10F)  / 1000000.  000011*0 

TOT*  « (CUC3*C**C2»C5*C6*C7»C8*C9»C10)  / 1000000.  00001150 

C 00001160 

C*  TRARSPORH  ALL  COSTS  TO  BILLIONS  OP  DOLLARS.  *00001180 

C***** •••••••*•••••*••••••••••*•••••••••••*•••••••••••••••••••••••••••••00001 190 

C 00001200 

T 1 A 1 « (PHE  • XUC)  / 100000C.  00001210 

TIBI  • S*  / 1000000.  00001220 

TIC  1 * REPURB  / 10000C0.  00001230 

T1D1  * TAL  / 1000000.  000012*0 

T1E1  * PSD  / 1000000.  00001250 

TIPI  • PRODX  / 1000000.  00001260 
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T4 R = C«P  / 1000000.  00001270 

T2  - C2  / 1000000.  00001200 

T5  * C5  / 1000000.  00001290 

T6I  « C6I  / 1000000.  00001300 

T6R  = C6R  / 1000000.  00001310 

T6  = C6  / 1000000.  00001320 

T7  = C7  / 1000000.  00001330 

T8I  * 081  / 1000000.  00001340 

T8R  » C8R  / 1000000.  00001350 

T8  = C 8 / 1000000.  00001360 

T9 1 = C9I  / 1000COO.  00001370 

T9R  * C9R  / 1000000.  00001380 

T9  = C9  / 1000000.  00001390 

T10I  = C10I  / 1000000.  00001400 

T10R  = C10R  / 1000000.  00001410 

T10  = CIO  / 1000000.  00001420 

C 00001430 

C **•**•**•••*•**•••*•***••••**•**••*****♦•••**•»*•••*•***••••*••*•**•* **0000 1440 

C*  SRITE  OUTPUT  TABLE  1 AT  "PB  TERR  IP  A L tP  PRRT  -•»  1.  *00001450 

C*** *••*•******•••••*•••••• **•••*• ••••*••**•••***••••*•***  ******•*••*••* 0000 1460 

C 00001470 

IP  (PRNT.EQ.  1)  GO  TO  111  00001480 

HR ITE  (6,1)  00001490 

BRTTE  (6,3)  T1A1, T1A1.TEB1A. TIBI, TIBI, TEB1B,T1C1,T1C1  .TEH1C.T1D1,  00001500 

♦ T1D1 ,TE81D,T1E1 ,T1E1 ,TE81E, TIPI, TIPI, TEB1P,  00001510 

♦ TEB2,T4R,TEB3,TEB4,T2,T2,TEH5,T5,  00001520 

♦ T5,TER6,T6I,T68,T6,TEB7,T7,T7,TEB8,T8I,T8R,T8,TEB9,T9I,T9H,  00001530 

♦ T9,TEH10,T10I,T10R,T10,TS811,TOT1, TOT 2, TOT3, TOT4  00001540 

C 00001550 

C*** ••••••**•*••••*••*•••••••••••••**• ••••••••••••••••••••••••••••••••••Q0C01560 

C*  POOR  ERROR  CHECKS  ARE  HADE  1ERE  UITH  BESSAGES  PRINTED  IN  THE  SPENT  *00001570 

C*  THAT  CONSTRAINTS  ARE  NOT  BET.  THE  PIRST  ERROR  OCCURS  BHEN  THE  *00001580 

C*  RUBBER  OP  SITE  HAINTENANCE  BAN-HOURS  EXCEEDS  THE  HAIIHOB  ON-RADAR  *00001590 

C*  HA INTENANCE  TIHE.  *00001600 

(;••••••*•••••••••••••*••••••*••• •••••••*••••••••••••*••••*••••••••••••••000016 10 

C 00001620 

IP  (SHHH.GT.RXHRS)  HR  ITE  (6,4)  00001630 

WRITE  (6,5)  SB  HH,  HERRS  00001640 

WRITE  (6,6)  SPHH  00001650 

C 00001660 

<;••• •*•*•**•.**••**•*••*••***••**••*•***•*••*•***••*•*•*••«**•***••••**• 00001670 

C*  THE  SECOND  ERROR  IS  PRINTED  WHEN  THE  TOTAL  HAINTENANCE  NAN-HOURS  *00001680 

C*  BT  SITE  PERSONNEL  EICEEDS  THE  ANNUAL  OPP-RADAR  HAINTENANCE  TIBE.  *00001690 

C***»* ••**••*•**••*••*•****•••••*•*•••*••*•***••*•**•••*•*•••*••*•**•••*00001700 

C 00001710 

TEH12  * PLOAT  (NSP)*SAA  00001720 

IP  (STHH.GT.TEH12)  WRITE  (6,4)  00001730 

WRITE  (6,7)  STHH.TEH12  00001740 

C 00001750 

c*** *••••»•*•••*•••*•••••••*••••••••••••••••••••••*•*••*••*••*•••*••**•• 00001 760 

C*  THE  THIRD  ERROR  IS  PRINTED  WHEW  THE  IEARLT  HAINTENANCE  HOURS  BT  *00001770 

C*  CHP  PERSONNEL  EXCEDS  THE  TOTAL  AHHOONT  OP  HAW-HOURS  AVAILABLE  AT  *00001780 

C*  THE  CHP.  *00001790 

c***«* •••*•••• •••••••••••••••*••***••••*•*••••••••*••••*•••*•••••••••••*0000 1800 

C 00001810 

TEH13  = PLOAT (NCP)*CAA  00001820 

IP  (CLH.GT.TEH13)  BFI'-E  (6,4)  00001830 

IP  (CLH.GT.TBB13)  (RITE  (6,8)  CLH.TEH13  00001840 

C 00001850 

C***«* *•*•••***••**••*•••*•••*•••*••«•••••*****•••**•••••••***•*•*•••• **00001 860 

C*  THE  POORTH  ERROR  IS  PRINTED  BREN  THE  TEARLT  CORRECTIVE  HAIWTERANCE  *00001870 

C*  HOURS  BT  DEPOT  PERSONNEL  EXCEEDS  THE  TOTAL  AHODNT  OP  HAW-HOURS  *00001880 

C*  AVAILABLE  AT  THE  DEPOT.  *00001890 
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c«*« •••••••••••••••••••••••••••••*••••••*•••••••••••••••*••*••••••••••••00001 900 

C 00001910 

TEB1*  = PLOAT (HDP)»DAA  00001920 

IP  (DLH.GT.TEB1*)  MITE  (6,*)  00001930 

IP  (DLH.GT.TEBl*)  MIT  E (6,9)  DLH.TEB1*  000019*0 

C 00001950 

c*«* •••••*••••••••••••••••••••••••••••••••••••••••*•*•••••••••••••••••••00001960 

C«  BRITE  OUTPUT  T ABLE  1 AT  OH  OPP-LIHE  PHIHTER  IP  PHHT  -«  0.  *00001970 

c*«««* ••••••••••••••••••••*• ••••••••••••••••*•••••••••••••••••••••••••••00001980 

C 00001990 

111  IP  (PRHT.EQ.O)  GO  TO  222  00902300 

H R ITE (7,1)  00002010 

■ RITE  (7,  2)  00002020 

MITE  (7,3)  T1A1, T1A1.TEH1A, TIBI, TIBI, T EH  IB, T 1C1, T1C1 , TEH 1C.T1D1 , 00002030 

♦ T1D1,TEH1D,T1E1,T1E1,TEB1E, TIPI, TIPI, TBH1P,  000020*0 

♦ TEH2 ,T*R,TEH3,TEB*,T2,T2,TEH5,T5,  00002050 

♦ TS, T BH6, T6I, T6R , T6, TEH7,T7,T7,TE  H8 ,T8I , T8t  ,T8,TEH9,T9I, T9R,  00002060 

♦ T9, TEH  10, T1 0I,T 10R, T10,TEH 11 ,TOT1 , TOT2, TOT3 ,TOT*  00002070 

C 00002080 

C**« ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••00002090 

C*  POUR  ERROR  CHECKS  ARE  BADE  HERE  KITH  HESSAGES  PRIHTED  IR  THE  BVBHT  *00002100 
C*  THAT  COHSTRAINTS  ARE  HOT  RET.  THE  PIRST  ERROR  OCCURS  HH EH  THE  *00002110 

C*  RUBBER  OP  SITE  HAIHTEHAHCE  HAH-ROURS  EXCEEDS  THE  HAXIHUH  OH-RADAR  *00002120 

C*  HAIHTEHAHCE  TIHE.  *00002130 

C ••••••••••••• *••••••••••••••••••••• *••••••••••••••••••••••••••••••••••* 00002 1*0 

C 00002150 

IP  (SBBH.GT.HXHRS)  BRITE  (7,«)  00002160 

BRITE  (7,5)  SB  HH,  BIRRS  00002170 

BRITE  (7,6)  SPHH  00002180 

C 00002190 

C«*****« ••••••••••••••••••••••••*•••••••••••••••••••••••••••••••••••••••00002200 

C*  THE  SBCOHD  ERROR  IS  PRIHTED  BHEH  THE  TOTAL  HAIHTEHAHCE  BAR-HOURS  *00002210 

C*  BY  SITE  PERSOHHEL  EXCEEDS  THE  AHHOAL  OPP-RADAR  HAIHTEHAHCE  TIBB.  *00002220 

(;•••••••*•••••••••••••••••••••• ••••••••••••••••••••••••••••••••••••00002230 

C 000022*0 

TEB12  * PLOAT(HSP) *SAA  00002250 

IP  (STHH.GT.TEH12)  BRITE  (7,*)  00002260 

BRITE  (7,7)  STHH, TER  12  00002270 

C 00002280 

<;••••••••••••••••••• •••••••••••• •*••••••••••••••••••••••••••••••••••••••00002290 

C*  THE  THIRD  ERROR  IS  PRIHTED  BHEH  THE  YEARLY  BAIRT  EHAHCE  HOORS  BY  *00002300 

C*  CHF  PFRSOHHEL  EXCEDS  THE  TOTAL  AHHOUHT  OP  HAH-HOURS  AVAILABLE  AT  *00002310 

C*  THE  CBP.  *00002320 

C**« ••••••••*••••••••*•••••••••••••••••••••••*••••••••••••••••••••••••••00002330 

C 000023*0 

TEH13  = PLOAT(HCP) *CAA  00002350 

IP  (CLH.GT.TEH13)  BPITE  (7,«)  00002360 

IP  (CLH.GT.TEH 13)  BRITE  (7,8)  CLH.TEH13  00002370 

C 09002380 

, <;••••••* ••••••*•••••••••••*••••••••••*••••*•••••••••••••••••••••••••••••00002390 

C*  THE  POORTH  ERROR  IS  PRIHTED  BHEH  THE  YEARLY  CORRECTIVE  HAIHTEHAHCE  *00002*00 
C*  HOURS  BY  DEPOT  PERSOHHEL  EXCEEDS  THE  TOTAL  AHOUHT  OP  HAH-HOURS  *00002*10 

C*  AVAILABLE  AT  THE  DEPOT.  *00002*20 

<;••••••••••••••••••••••••••• •••••••••••••••*•••••••••••••••••••*••••••••00002*30 

C 00002*40 

, TEB1*  * PLOAT(HDP) *DAA  90002*50 

IP  (DLH.GT.TEBl*)  BRITE  (7,«)  00002*60 

IP  (DLH.GT.TEBl*)  BRITE  (7,9)  DLH,  TEHl  * 00002*70 

C 00002*80 

' 222  RETURH  00002*90 

EHD  00002500 


on  nonnon  n r> 


SOBBODTIME  0TAB2 


C*** ••*•****••••*••*••••*••••••••••••••*•••••••••••••*••***••• 

C*  THIS  SUBROOTIIE  PBIIT  OUTPUT  TABLE  2:  OOTPOTS  BT  LID  TIPE 


00000010 

00000020 

*00000010 


con  BON  /RDQ/  I«O(200)  , LR  BABE  (200  ,2*)  ,LBPART(200, 12)  ,BCI(200|  , 
» RTBI  (200)  ,B,PA  (200)  ,QPA  (200)  ,0*  (200j  , Bn  <jr  ft  i 

* DC  (200) 

IBTEGEB  OP  A,  OR 
REAL  HTBI 


COHHOI  /C2/  C2 ,C2C,C2D,C2L  (2  00)  , C2S 
COHROI  /C3/  C3,C3C,C3D,C3L(200) ,C3S 
COBBCN  /C4/  C*,C4I,C*L(200) ,C*B 
COBBON  /C9/  C9,C9C,C9D,C9I,C9L(200) .C9R.C9S 


POBBAT  (1H1,19I,  3 A HO  OTP  OT  TABLE  2: 

* 15H(I  I*  BILLIONS)  ///) 

POBBAT  (1H1,19I,«6HOUTPOT  TABLE  2: 

* 31X,15H(S  IB  BILLIONS)///) 


• 000000  UO 
>♦00000010 
00000060 
00000070 
00000080 
00000090 
00000100 
00000110 
0C000120 
00000130 
000001*0 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
0000023) 

LRO  COST  EL  EH  BETS  (CONTINUED)  /00000240 

00000250 


LEO  COST  ELBBENTS/31 X, 


POBBAT  (31 I.36HCOBREC-  IB7EST-  REPLEB-  IBTEBTOBT/ 

* «R  LB 0,6 1, 3 BLEU, 18I,*HTIVE,5X, AH  BEET,  51 , 7HISHB  ENT, 21, 

* 7HB  AN  AGE-/AH  1NO,  61 , *HNOOB , 1 7X.6BB AINT.  ,3 X,6HSPIRES  , 

* 3X,6HSPABES,3I,*HBEBT,5X,5HT  OTAL/) 

POBBAT  (11,13,  2X,  2*A1,P7.2.P9.2.f9.2,P9.2,P8.2) 

POBBAT  (1H0,11 I,6BTOTAL:,12X,F7.2,P9.2, P9 ,2, P9 .2, P8 . 2/// 


5X , 52HBOTE:  OBLT  THOSE  PORTIONS  OP  COST  ELBBEBTS  DIRECTLT, 


00000260 

00000270 

00000280 

00000290 

00000300 

000003’C 

00000320 


7B  ATTHI-/1 21 , A5HB0TABLB  TO  INDIVIDUAL  LRO  TTPES  ARE  DISPLATBD, 00000 330 


6H  HERE.) 


BRITE  (7,  2) 
BRITB  (7,*) 


LIBCBT 
TOT1  - 
TOT 2 * 
TOT  3 * 
TOT*  « 


0. 

0. 

0. 

0. 


15 

♦ CAL  (I) 


» C9L  (I) ) / 10000C0. 


15 


DO  15  1*1,  N 

IP  (QPA(I)  .EQ.O)  GO  TO 
TOT  * (C2L  (T ) ♦ C3L  (I) 

T 1 » C2L  (I)  / 1000000. 

T2  * C 3 L (I ) / 1000000. 

T3  * C*L(I|  / 1000000. 

T*  * C9L  (I)  / 1000000. 

WRITE (7,  5)  I,  (LRRAHE  ( I,J)  ,J«1,2A)  , T1 , T2  ,T3  ,T*  ,TOT 
TOT  1 - TOT1  ♦ C2L (I) 

TOT  2 * TOT 2 ♦ C3L  (T) 

TOT 3 * TOT 3 ♦ CAL(I) 

TOT4  * TOTA  ♦ C9L(I) 

LIBCBT  * LINCNT  ♦ 1 
IP  (LINCNT.lt. 60)  GO  TO  15 
WRITE  (7,3) 

WRIT  E(7,  4) 

LIWCNT  * 0 
CONTINUE 


00000340 

00000350 

00000360 

00000370 

00000380 

00000390 

00000400 

00000*10 

00000*20 

00000430 

00000*40 

00000450 

00000460 

00000*70 

00000*80 

00000*90 

00000500 

00000510 

00000520 

00000530 

010005*0 

00000550 

00000560 

00000570 

00000580 

00000590 

00000600 

00000610 

00000620 

00000630 
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4 


on  nnnnnnnnnnnonoort 


16 


• 4 

* 

« 


IF  (LINCNT.LE.45) 
WRITE  (7,3) 

WRITE (7,4) 

TOT  = (TOT  1 ♦ 

TOT1  = TOT1  / 

TOT 2 = TOT  2 / 

TOT 3 * TOTS  / 

TOT  4 = TOT  4 / 
WRITE (7,6) 


GO  TO  16 


TOT  2 ♦ TOT  3 

1000000. 

1000000. 

1000000. 

1000000. 

TOT1 ,TOT2 ,TOT3 ,TOT4 , TOT 


♦ T0T4)  / 1000000. 


RETURN 

END 

SUBROUTINE  OTAB3 


SUBROUTINE  OTAB3  PRINTS  OUTPUT  TABLE 
(SITE,  CUP,  DEPOT)  . 


OUTPUT  BT  LOCATION 


CC H HO N /C2/  C2,C2C,C2D,C2L  (200)  ,C2S 
CON  NON  /C3/  C3,C3C,C3D,C3L (200) ,C3S 
CORHON  /C4/  C4,C4I,C4L  (200)  ,C4R 
CON HON  /C5/  C5 

COHNON  /C6/  C6.C6C, C6D,C6I,C6R ,C6S 
CONNOR  /C7/  C7 

CONHON  /C8/  C8, C8C, C8D,C8I,CNR , CBS 

CCNHON  /C9/  C9,C9C,C9D,C9I,C9L (200) ,C9R,C9S 

COHNON  /CIO/  CIO.CICHW (10) .CIO I ,C 10R ,C 10SN ( 10) 


FORNAT  (1H1, 17X.42HOOTPOT  TABLE  1:  COST  O.EHENTS  BI  LOCATION/ 

31 1,158 (S  IN  BILLIONS) //// 

4X  , 12HCOST  ELEHBNT,  1 2X,  4HSITE  , 5X  , 3HCHF ,51 , 5HDEPOT ,5 X ,5  HTOT AL// 
1 2 H NAI NTENANCE.II X.3F9.2.F10. 2/ 

18 H INVESTNENT  SPAR ES, 51,  3P9 . 2, F 1 0.  2/ 

21H  REPLENISHNENT  S PARES , 21 , 2 P9. 2 , 9 H 0.0  ,MP.2/ 

12H  CONSUHABLES,11X,F9.2,2(9R  0.0  ),P10.2/ 

1 8 H SUPPORT  EQUIPNENT, 5X, 3F9.2.F10.2/ 

1 1 H FACILITIES, 12X, P9. 2, 2 (9H  0.0  ),F10.2/ 

98  TRAINING, 141, 3P9. 2, P10. 2/ 

21H  INVENTOR!  HARAGEHENT, 21 , 3P9. 2, FI 0. 2/ 

218  SOFTWARE  H AI NTENA NCB, 21, 2 (98  0.0  ) , F9. 2,  MO. 2// 

SI , 1 1 HTOT  AL  COST  : , 7X  , 3F9 . 2,  FI  0. 2) 


T2S 

T2C 

T2D 

T2  = 

T3S 

TIC 

T 3 D 

T3  » 

T4R 

T4I 


* C2S 
» C2C 
‘ C2D 
C2  / 
» C3S 
= C3C 
’ C3D 
C3  / 

■ C4R 

■ C4I 


/ 1000000. 
/ 1000000. 
/ 1000000. 
1000000. 

/ 1000000. 
/ 1000000. 
/ 1000000. 
1000000. 

/ 1000000. 
/ 1000000. 


00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

00000820 

00000830 

00000840 

00000850 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

00001060 

00001070 

0000108C 

00001090 

00001100 

00001110 

00001120 

00001130 

00001140 

00001150 

00001160 

00001170 

00001180 

00001190 

00001200 

00001210 

00001220 

00001230 

00001240 

00001250 

00001260 
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» **V 


■&&**** 


on  no  nonrjn 


Ttt 
T5 
T6S  = 
T6C  - 
T6D  = 
T6 
T7 
T8S  * 
T8C  = 
T8D  = 
T8 
T9S  - 
T9C  = 
T9  D « 
T9 
T10  * 
T0T1 
TOT  2 
T0T3 
TOTH 
HRITE 


C4  / 

C5  / 

C6S 
C6C 
C6D 
C6  / 

C7  / 

C8S 
C8C 
C8D 
C 8 / 

C9S 
C9C 
C9D 
C 9 / 

CIO 
= (C2S  ♦ 
(C2C  ♦ 


1000000. 

1000000. 

/ 1000000. 
/ 1000000. 
/ 1000000. 
1000000. 
1000000. 

/ 1000000. 
/ 1000000. 
/ 1000000. 
1000000. 

/ 1000000. 
/ 1000000. 
/ 1000000. 
1000000. 

/ 1000000. 
CIS  ♦ 
C3C  ♦ 


C5  ♦ C6S  ♦ C7  ♦ CSS  ♦ C9S)  / )30000n. 
C6C  ♦ CSC  ♦ C9C)  / 1000000. 

C8D  ♦ C9 0 ♦ CIO)  / 1000000. 


C4R  ♦ 

C«I  ♦ 

= (C2D  ♦ C3D  ♦ C6D  ♦ 

= TOT  1 ♦ TOT 2 ♦ TOT 3 
(7,  1)  T2S,T2C,T2D,T2,T3S,T3C,T3D,T3,T4R,T4I,T4  , 
T5,T5,T6S,T6C,T6D,T6,T7,T7,T8S,T8C,T80, 
TB,T9S,T9C,T9D,T9,T1C,T10,TOT1  ,TOT2  ,TOT3  , TO' -I 


RET0RN 

END 

SOBROUTIRE  OTAB4 


00001270 
00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001350 
00001360 
00001 370 
00001380 
00001390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
*00001550 


* S0BHO0TINE  THAT  PRINTS  OOTPOT  TABLE  4:  OOTPOTS  BT  PONCTIOHAL  A REA. *00001560 

A******************************************************************* ***0000 1570 

00001580 
,RHH(10) ,00001590 
00001600 
00001610 


COHRON  /R93/  ENTR  (1  0)  , PA  , PANAHE  ( 10 , 24)  , RHCP  ( 10)  , INOPI  ( 10)  , 

♦ SIZE  (10)  , SHI  (10)  ,SHCP  < 1 0)  , SNFI  f (1  0)  , SB  VAR  (10) 

♦ HEIGHT  (10) 

INTEGER  PA 

REAL  NHH 


00001620 
00001630 
00001640 
00001650 
00001660 
00001670 
00001680 
00001690 

RESOLTS  BT  PONCTIONAL  AREA////00001700 


COHRON  /NCOS/  CLR  ,PHPA  ( 1 0)  , S HHH,  SPH  H,  STHH 
COHHON  /CIO/  C10,C1CHB(10) ,C10I,C10R,C10SB(10) 

PORHAT  (1H1, 171,43 HOOTPOT  TABLE  4: 

♦ 33X, 34HABNUAL  SITE  . ENHANCEHENT  COST/ 

♦ 33 X,  33HPRE VENTIPE  . (JH/LIPE  CTCLE)  / 

♦ 10X, 1 5 HPONCTION AL  AN EA , 81, 1 3HHAI NTENANCB  ./ 

♦ 22H  INDEX  NOHENCLATORE, 1 1 X , 2 8H (H AN-HOO RS)  . SOPTBARE 

♦ 11HHARE  TOTAL /45X,1H.) 

PORHAT  ( IX, 1 3,  3X,  24A  1,  P10 . 2,  4X , 1 H . , P8 .2 , P9. 2 , P9.2) 

PORHAT  (45X.1H./1 6 X,6  HTOT  AL:  ,9X , P13 . 2,  41 , 1H. , PB.  2,  P9 . 2,  P9. 2) 

HRITE  (7,1) 


00001710 
00001720 
00001730 
HARD, 00001740 
00001750 
00001760 
00001770 
00001780 
00001790 


TOT1  * 0. 

00001800 

TOT  2 * 0. 

00001810 

TOT3  = 0. 

00001820 

DO  5 J-1,  PA 

00001830 

T1  * Cl  OSH  (J)  / 1000000. 

00001840 

T 2 = CIOHH(J)  / 1000000. 

00001850 

TOT1  = TOT1  ♦ PHPA(J) 

00001860 

TOT  2 » TOT 2 ♦ T 1 

00001870 

TOT 3 * TOT 3 ♦ T2 

00001880 

TOT  4 » T1  ♦ T2 

00001890 

128 


«RITE(7.2J  I NOr  A (J)  , (PA  NAME ( J,  l)  , L*  1, 2*>  . M rA  (J|  , T 1 , T2,  TOT*  00001900 

5 CO HT I NOE  00001910 

c 00001920 

TOT 4 * TOT 2 ♦ TOT 3 00001930 

WRITE  (7,  3)  TOT1,TOT2,TOT3,TOT4  000019*0 

c 00001950 

RETORN  00001900 

END  00001970 
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SUBROUTINE  OTABS  OOOOOO’O 

C 00000020 

c 000000 JO 
C*  SUBROUTINE  OTABS  • 00000040 

C*  SUBROUTINE  THAT  PRINTS  OUTPUT  TABLE  5:  HISSION  CRITICAL  LRUS  • 000P00S0 

C*  NOT  STOCKED  AT  SITE.  • 00000060 

00000070 

c ooooooso 

COHHON  /RD4/  INO  (200)  , LRN ABE  (200 , 24)  , LRPART  ( 200,  12)  . HCI  ( 200),  00000090 

♦ HTBI  (200)  .N.PA  (200)  ,QPA  (200)  ,QR  (200)  ,RH  (200)  , 00000100 

♦ UC  (200)  00000110 

INTEGER  QPA,  QR  00000120 

REAL  HTBI  000001  JO 

C 00000140 

COHHON  /ADIS/  DSTK(200|  , ECHT  , HCP  (2  30)  , STK  (200)  ,STK1  (200)  ,1  000001S0 

INTEGER  STK, STK1  00000160 

C 00000170 

1 PORHAT  ( 1 H 1 ,61 ,30 HOOT PUT  TABLE  5:  HISSION  CRITI,  00000180 

♦ 29HCAL  LRUS  NOT  STOCKED  ON  SITE  ///  00000190 

♦ S2X,6HNUHBER,SI,9HHEAN  TINE/  00000200 

♦ 21, JHLRD, 471 ,7 HOP  LRDS,4X,7HBETHEEK/  00000210 

♦ 1 X,5BINDEX,46I,7HIN  EACH, 4X , 6HH AINT. / 00000220 

♦ 1 X,6HNUHBER ,SX,4HNAHE,20X, 1 1 HP ART  NUHBER , SI, 5HR ADAR, 6X,  00000230 

♦ 9HINCIDENTS/52I,5H(QPA)  ,6X,6H(HTBI)  /)  00000240 

2 PORHAT  (2I,I3,4I,24A1.3I,12A1,I8,SX,P11.3)  00000250 

3 PORHAT  (//8X,47H  HISSION  CRITICAL  LRUS  ARE  ALL  STOCKED  ON  SITE.)  00000260 

4 PORHAT  (///51H  ATERAGE  NUHBER  OP  ENERGRNCT  CORRECTIPE  NAI NTENARCE/00000270 

♦ 44H  TRIPS  PROH  CHP  TO  THE  RADAR  SITES  PER  TEAR: , 121, P10. 3)  00000280 

00000290 
00000300 

NRITB  (7,  1)  00000310 

C 00000320 

ICRT  « 0 00000330 

DO  S I»1 , N 00000340 

IP  (HCP  (I)  .BQ.O.OR.QPA  (I) . EQ.O)  GO  TO  5 00000350 

R RITE  (7,  2)  I,  (LBNAflB  (I,  J)  ,J=1,24)  , (LRPART  (I  , K)  ,1-1,12)  ,QPA(I)  , 00000360 

♦ HTBI  (I)  00000370 

ICNT  * 1 00000380 

5 CONTINUE  00000390 

C 00000400 

IP  (ICNT. EQ.O)  HR  ITE  ( 7 , 3)  00000410 

BRITE  (7,4)  ECHT  00000420 

C 00000430 

RETURN  00000440 

END  00000450 

I ' 


nnnnnrinnn 


SUBROUTINE  OSENS 


00000010 
00000020 
*000000  30 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CON  NON  /RD4/  INO  (200)  , LRNAHE  <200  ,24)  , LHPA  RT  ( 200 , 1 2)  , NCI  ( 200)  , 

♦ NTBI  (200)  , N , PA  (200)  ,QPA  (200)  ,QR  (200)  ,RH  (200)  , 

♦ nc(2C0) 

INTEGER  QPA,QR 

REAL  NTBI 

CONHON  /RD5/  BCNR  (200)  ,CBCHH(20P)  , CHH (200 ) ,CHTS1  (200)  ,CRTS2  (200)  , 

♦ DBCNH  (200)  ,0«H(200)  , DRTS1  (200)  , DRTS2  ( 200)  , 

♦ DRTS  3(200)  , EPR  (200)  ,IHH  (200)  ,IN015  (200)  ,N15, 

♦ PANH  (200)  ,RIP  (200)  , RL  (200)  , RHH  (200)  , SHH  (20C)  , SRTSl  (200)  , 

♦ < HOR1  (2C0)  ,VOR2  (200)  ,HOR3(2C0) 

REAL  IHH 

INTEGER  RL 

CONHON  /SENS/  PIN C, LOCH H, LDCRTS , LDDHH , LDORTS , LDERf , LDPPR, LDPR , 

♦ LDHCI,LDRH,LDSRTS,LDNOR,LDUC 

COHHON  /CNTL/  EXIT, ITER , HA XPHT.PRNT , REDO, REREAD 
IHTsSER  EXIT, PRNT, REDO, REREAD 

COHHON  /TDXOC/  TDXUC 

COHHON  /TDPR/  IDPR  (200 ) ,TDPR  (200 ) 

COHHON  /TDK/  TDK 

COHHON  /TDUC/  I DUC  (200  ) ,TDUC  (200 ) 

COHHON  /TD BOR/  I OWOR  (200)  ,TDNOR  (200)  ,HF  (200) 

COHHON  /TDPPR/  I DFPR (200) ,TDPPR ( 200) 

COHHON  /TDCHH/  I DCHH  (200)  ,TDCHH  (200) 

COHHON  /TDDHH/  IDDHH (20C) .TDDHH (200) 

COHHON  /TORN/  I DRH { 200 ) ,TDRH (20C) 

CCHHON  /TDSRTS/  I DSRTS  (200)  , SPSR TS  ( 200)  , TDSRTS  (200) 

COHHON  /TDCRTS/  CPCRTS  (2C0)  , IDCRTS  (20C)  , TDCRTS  (200) 

COHHON  /TDDRTS/  DPDRTS  (200 ) , IDDRTS  ( 200)  , TDDRTS  ( 20C) 

COHHON  /TDHCI/  I DHCI  (20C  ) , HCIC  (200)  , TDHCI  (200) 

DIH ENS ION  TEHP  (200)  , ITEHP  (200)  ,TEHP2  (200) 

PORHAT  (1H1,25I,26HSENSITIVITY  ANALYSIS  TABLE) 

PORn AT  (1H1.20X, 37 HOUTPUT  TABLE  6:  SENSITITITT  ANALYSIS//) 

PORHAT  (/23H  CHANGE  IN  LCC  DUE  TO  A,F5.1,15H  « INCREASE  IN:// 
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I 

1 

I 


I 

t 


! 

I 


i 

! 

* 

j 


i 


♦ 36H  GLOBAL  BQUIPHENT  COST  (IUC|  (SH)  : , PIS.  3/ 

♦ 41H  GLOBAL  FAILURE  RAT  P (K  FACTOR)  (SR):  , F10.3) 

C 

4 FORHAT  (/12H  LRU  INDEX, 171 ,6(41,13)) 

C 

5 FORHAT  (21H  CHARGE  IR  LCC  (SR)  , 91 , 6F7 . 3 ) 

C 

6 FORHAT  (/12H  LRU  IRDEI , 171 , 1 2 (41 , 1 3) ) 

C 

7 FORHAT  (21H  CHARGE  IN  LCC  (SH)  , 9X  , 1 2 P7.  3) 

C 

8 FORHAT  (///40H  LRU  UNIT  COST  (ORDERED  BY  SEN S ITIYITY) : ) 

C 

9 FORHAT  (22  H CHANGE  IN  UC  , 81, 6 ( 1 X ,P6 . 0)  ) 

C 

10  FORHAT  (22R  CHANGE  IN  UC  , 8 X,  1 2 (1  X, P6 . 0) ) 

C 

11  FORHAT  (///4  3H  LRU  FAILURE  RATE  (ORDERED  BY  S BN SITIYIT Y)  ' ) 

C 

12  FORHAT  (29H  CHARGE  IR  FR  (PPH)  , IX, 6 (1 X ,F6 . 2 ) * 

C 

13  FORHAT  (29H  CHARGE  IN  FR  (PPH)  , 1 X , 1 2 (1 X , P6 . 2 ) ) 

C 

14  FORHAT  ( ///4  4 H LRU  REAR-OUT  RATE  (ORDERED  BY  SENSITIVITY)  : ) 

C 

15  FORHAT  (26H  CHANGE  IR  NOR  , 41,6 (1 X ,F6.3) ) 

C 

16  FORHAT  (26H  CHANGE  IN  BOR  , 4 1, 12  (1 1 , F6. 3 ) ) 

C 

17  FORHAT  (///46H  LRU  FALSE  POLL  RATE  (ORDERED  BY  SENSITIVITY):) 

C 

18  FORHAT  (28H  CHARGE  IR  PPR  , 2 1, 6 ( 1 X , F6 . 3 ) ) 

C 

19  FORHAT  (28H  CHANGE  IN  FPR  , ? X,1 2 (1 X , F6 . 3 ) ) 

C 

20  FORHAT  (///46H  LRU  CHF  REPAIR  TIHE  (ORDERED  BY  SENSITIVITY):) 

C 

21  FORHAT  (28H  CHANGE  IN  CHH  , 2 X,6 ( 1 X , F6 . 2 ) ) 

C 

22  FORHAT  (28H  CHARGE  IN  CHH  , 2 X,  1 2 ( 1 X , F6 . 2)  ) 

C 

23  FORHAT  (///48H  LRU  DEPOT  REPAIR  TIHE  (ORDERED  BY  SENSITIVITY):) 

C 

24  PORnAT  (28H  CHANGE  IN  DHH  , 2 X,6  ( 1 X , F6 . 2 ) ) 

C 

25  FORHAT  (28H  CHANGE  IR  CHH  , 2 X,  1 2 (1  X , F6 . 2 ) ) 

C 

26  FORHAT  (///46H  LRU  REPAIR  HATERIAL  (ORDERED  BY  SENSITIVITY):) 

C 

27  FORHAT  (28H  CHANGE  IN  RH  , 2 1,6  (1 X ,P6 . 0 ) ) 

C 

28  FORHAT  (28H  CHANGE  IN  RH  , 2 X,  1 2 (1  X , F6 . 0) ) 

C 

29  FORHAT  (///51H  LRU  SITE  REPAIR  FRACTION  (ORDERED  BY  SENSITIVITY, 

♦ 18HNOT  INCLUDING  SE):) 

C 

30  FORHAT  (28H  CHANGE  IN  SRTS  , 2X,  6 ( IX,  F6 . 3 ) ) 

C 

31  FORHAT  (28H  CHARGE  IN  SRTS  , 2 X,  1 2 ( 1 X ,F6 . 3) ) 

r 

32  FORHAT  (///50H  LRU  CHF  REPAIR  FRACTION  (ORDERED  BY  SENSITIVITY. 

♦ 18HNOT  INCLUDING  SE)  :) 

C 


00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
00000830 
0000084C 
00000850 
0000086C. 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
0000093C 
000009«0 
0000095C 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
000010  39 
00001040 
00001050 
00001060 
00001070 
00001080 
00001090 
00001100 
00001110 
00001120 
00001130 
00001140 
00001150 
00001160 
,00001170 
00001180 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
00001260 
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33  FOR  HUT  (27H  CHANGE  III  CRTS  , 3X , 6 (1  X,  F6 . 3 ) ) 00001270 

C 00001280 

34  FORHAT  (27H  CHANGE  IN  CRTS  , 3 1 ,1 2 ( 1 X , F6 . 3 ) ) 00001290 

C 00001300 

35  FORHAT (///52H  LRO  DEPOT  REPAIR  FRACTION  (ORDERED  BI  SENSITITITI.  ,00001310 

♦ 1 BHNOT  INCLODING  SB) : ) 00001320 

C 00001330 

36  FORMAT  (28H  CHANGE  IN  DRTS  , 21,6  < II,  F6. 3) ) 00001340 

C 00001350 

37  FORMAT  (28H  CHARGE  IN  DRTS  , 2X,  1 2 ( 1 X , P6 . 3) ) 00001360 

C 00001370 

38  FORHAT  (///47H  LRO  MISSION  CRITICAL  (ORDERED  BY  SENSITIVITY,  , 00001380 

♦ 24HFOR  LRUS  HITH  MCI  >*  1):)  00001390 

C 00001400 

39  FORHAT  (16H  CHA  NG E I N MCI,  131 , 6 (4X , 1 3) ) 00001410 

C 00001420 

40  FORHAT  (16H  CH A NGE  I N MCI, 131, 1 2 (41, 13) ) 00001430 

C 00001440 

C***«* •*•*••*•••*•*•*••••*••••••••••*••••*•••••••••••••••••••••*••*•••••00001450 

C*  PRINT  OUT  HEADINGS  AT  THE  TERMINAL  AND/OR  AT  THE  OFF-LINE  *00001460 

C*  PRINTER.  *00001470 

C* ************ ****•*•**•*••*****•• •••***•**********•*****••*•***•••**•**00001480 

C 00001490 

IF  (PRNT.NE.1)  HRITE  (6,1)  00001500 

IF  (PRNT.NE.O)  HRITE  (7,2)  00001510 

C 00001520 

TEH1  = FINC  * 100  00001530 

TFH2  = TDIOC  / 1000000.  00001532 

TEM3  - TDK  / 1000000.  00001533 

IF  (PRNT.NE.1)  WRITE  (6,3)  TEH  1 , TEB2 ,TEH3  00001540 

IF  (PRNT.NE.O)  HRITE  (7,3)  TEH  1 , TEH2.T  EH  3 00001550 

C 00001560 

C***** •*••*•••••••••••**••••••••••••••••••*•••••••••••••••••••••••••••*•0000 1570 

C*  THIS  SECTION  OF  CODE  (FROM  HERE  UNTIL  LABELL  NUMBER  22001)  IS  RE-  *00001580 
C*  PEATED  11  TIMES  --  ONCE  FOR  EACH  DERIVATIVE.  AT  THE  START  OF  BACH  *00001590 
C*  SECTION,  VARIABLES  (LDERV  AND  LDUC)  ARE  CHECKED  TO  SEE  IF  ANT  *00001600 
C*  DERIVATIVES  OF  THIS  TYPE  ARE  REQUESTED.  IF  NOT,  CONTROL  IS  *00001610 

C*  TRANSFERED  TO  THE  NEXT  SECTION.  EACH  OF  THE  11  SECTIONS  IS  DIVI-  *00001620 
C*  DED  INTO  2 PARTS  - ONE  FOR  PRINTING  AT  THE  TERMINAL  AND  THE  OTHER  *00001630 
C*  FOR  THE  OFF-LINE  PRINTER.  *00001640 

C*** **************** *•••*•*********•****•*********•*******•***•**•••**••00001650 
C 00001660 

C*** **•****•***•*********•*******•**•••••***•***•*••*••••* •*•••*•••••••*00001 670 

C*  THE  FIRST  SECTION  COMPUTES  LRU  UNIT  COST  ORDERED  BY  SENSITIVITY  *00001680 

C***«* •••••*•••••**• ••••••••••••••••••••••••••••••••••••••••••••••••••••00001690 

C 0000 1700 • 

IF  (LDUC. EQ.O. AND. LDERV. EQ.O)  GO  TO  2001  00001710 

C 00001720 

ILDUC  = HAXO (LDERV, LDUC)  00001730 

DO  SO  1*1, ILDUC  00001740 

TEH  P (I)  * FINC  • UC  (I  DUC  (I ) ) 00001750 

T EH  P2  { I)  - T DUC  ( IDUC  ( I) ) / 1000000.  00001760 

50  CONTINUE  00001770 

C 00001780 

IF  (LDUC. EQ.O.  OR.  PR  NT.  EQ.  1)  GOTO  1001  00001790 

HRITE  (6,8)  00001800 

l IF  I N * 0 00001810 

IBEG  * 1 00001820 

I HUH  * 0 0O001830 

ILDUC  * LDUC  00001840 

C 00001850 

<:••••• ••*•••*••••••••••••*•••••••*•••••••••••••••*••••••••••••••••••••••0000 1860 

C*  COMPUTE  CHANGE  IN  UNIT  COST  FOR  NUMBER  OF  DERIVATIVES  REQUESTED.  *00001870 


I 
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• *** 

»** 

c 

0000189C 

DO  1000  1*1,  34 

00001900 

IP  (ILD0C.GT.6)  GO  TO  100 

00001910 

IHOH  * ILDOC  ♦ IROH 

00001920 

IPIH  * 1 

00001930 

GO  TO  150 

00001940 

100 

IWJH  * 6 ♦ IHOH 

00001950 

ILDOC  = ILDOC-6 

00001960 

c 

00001970 

c*** 

**•* 

C PRUT  OOT  DERIVATIVES  AT  THE  TERHIRAL  (6 

PER 

LIRE) 

*00001990 

C 

00002010 

150 

WHITE  (6,4)  (IDOC(J)  , J*IBEG,  IROH) 

00002020 

WRITE  (6,9)  (TEHP(J)  , J*IBEG,  I HOH) 

00002030 

WRITE  (6,5)  (TEHP2(J)  , J *IBEG  , I HOH) 

00002040 

IBEG  * IROH  ♦ 1 

00002050 

C 

00002060 

IP  (IFIH.EQ. 1)  GO  TO  1001 

00002070 

1000 

COHTIHOE 

00002080 

c 

00002090 

c*** 

c* 

IP  PRHT*0  THEN  DOR • T SERD  THE  OOTPOT  TO 

THE 

OPP-LIRE 

PRIHTER.  *00002110 

c 

00002130 

1001 

IP  (PRRr.EQ.O)  GO  TO  2001 

00002140 

WRITE  (7,8) 

00002150 

IPIH  * 0 

00002160 

IBEG  * 1 

00002170 

IROH  * 0 

00002180 

c 

00002190 

*** 

c* 

LDERV  IS  THE  HIWIHOR  ROBBER  OP  DERIVATIVES 

PRIRTED 

AT 

THE  OPP-UHE  *00002210 

c* 

PRIHTER  fOR  AR  LRO.  E.G.,  IP  THE  OSER  1 

REOOESTS  THAT 

5 DERIVATIVES  *00002220 

c* 

BE  PRIRTED  A HD  LDERV  IS  7,  THEH  7 DERIVATIVES  WILL 

BE 

PRIRTED  POR  • 00002230 

c* 

THAT  LRO. 

•00002240 

c 

00002260 

ILDOC  * HA  10  (LDERV, LDOC) 

00002270 

c 

00002280 

DO  2000  1*1,17 

00002290 

c 

00002300 

IP  (ILDOC. GT. 12)  GO  TO  1100 

00002310 

IROH  * ILDOC  ♦ IROH 

00002320 

IPIH  = 1 

00002330 

GO  TO  1150 

00002340 

1100 

IHOH  * 12  ♦ IROH 

00002350 

ILDIJC 


ILDOC-12 


C 

c*< 

c* 

c** 

c 


PR  1ST  OOT  DERIVATIVES  AT  THE  OPP-LIHB  PRIHTER.  (12  PER  LIRE) 


00002360 

00002370 

>*00002380 

•00002390 

►*00002400 

00002410 


>1  1150 

WRITE  (7,6)  (IDOC(J)  , J’lBEG,  I ROH) 

WRITE  (7,10)  (TEHP(J)  ,J*  I BEG,  I HUH) 

00002420 

00002430 

4 

WRITE  (7,7)  (TEHP2(J)  , J *IBEG  , I R1IH) 

00002440 

C 

IBEG  * IROH  ♦ 1 

00002450 

00002460 

J 

IP  (IPIH.EQ. 1)  GO  TO  2001 

00002470 

2000 

CORTIROE 

00002480 

c 

00002490 

c**** 

1 
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C*  THE  SECOND  SECTION  PRINTS  OUT  LRU  FAILURE  RATE  ORDERED  BT  SERSI-  *00002510 
C*  TIVITT.  *00002520 

C*** ************ ************************* ******•***•*••••* •***••**•*•• **00002530 

C 00002540 

2001  IF  (LDFR.EO.O. AND.LDERV.EQ.O)  SO  TO  4001  00002550 

C 00002560 

ILDFR  = H AIO  (L  DER  V,  LDFR ) 00002570 

DO  2050  1*1, ILDFR  00002580 

TEHP  (I)  * FINC  * (10E6/HTBI  (IDFR  (I) ) ) 00002590 

T EH  P2  ( I)  * TDFR  (IDFR  (I)  ) / 1000000.  00002600 

2050  CONTINUE  00002610 

C 00002620 

IF  (LDFR.EQ.O.OR.  PBNT.  EQ.  1)  GO  TO  3001  00002630 

HRITE  (6,  11)  00002640 

IFIN  = 0 00002650 

IBEG  = 1 00002660 

INUH  = 0 00002670 

ILDFR  = LDPR  00002680 

C 00002690 

(;••••••* ••••*•*••**•*•*••••••••••**•••••••••••*••••**••••*•••••*••••••••00002700 

C*  COHPUTE  CHANGE  IN  FAILURE  RATE  IN  PARTS  PER  HILL  ION  FOR  NUHBER  OP  *00002710 

C*  DERIVATIVES  REQUESTED.  *00002720 

c***«»*« •••••••••••**••••••••••••••**•*••••*•••••••••*••••••••*•••••••••00002730 

C 00002740 

DO  3000  1=1,34  00002750 

IF  (ILDFR. GT. 6)  GO  TO  2100  00002760 

INUH  = ILDFR  ♦ INUH  00002770 

IFIN  = 1 00002780 

GO  TO  2150  00002790 

210D  INUH  = 6 ♦ INUH  00002800 

ILDFR  = ILDFR-6  00002810 

C 00002820 

<;••••••• ••••••••••••••••*•••••••••••••••••••*•••••••••••••••••••••••••••000028 30 

C*  PRINT  OUT  DERIVATIVES  AT  TERHINAL  (6  PER  LINE! . *00002840 

c««**« *••••••••••••••*••••••••••••••••••••••••••••*•••••••••••••••••••••00002850 

C 00002860 

2150  HRITE  (6,4)  (IDFR  (J ) ,J  = IBEG, INUH)  00002870 

R RITE  (6,12)  (TEHP(J)  , J =IBEG , I NUN)  00002880 

HRITE  (6,5)  (TEHP2(J)  ,J=IBEG,INUH)  00002890 

IBEG  = INUH  ♦ 1 00002900 

C 00002910 

IF  (IFIN  . EQ.  1)  GO  TO  3001  00002920 

300'"  CONTINUE  00002930 

C 00002940 

3001  IP  (PRNT.EQ.O)  GO  TO  4C01  00002950 

HRITE  (7,  11)  00002960 

IFIN  = O 00002970 

IBEG  = 1 00002980 

INUH  = 0 00002990 

ILDFR  = HAXf  (L  DERV.LDFR)  00003000 

C 00003010 

DO  4000  1=1,  17  00003020 

C 00003030 

IF  (ILDFR. GT. 12)  GO  TO  3100  00003040 

INUH  = ILDFR  ♦ INUH  00003050 

IFIN  = 1 00003060 

GO  TO  3150  00003070 

3100  INUH  = 12  ♦ INUH  00003080 

ILDFR  = ILDFR-12  00003090 

C 00003100 

(-••• •••••••••••••••••*••••*•••«••••••••*•••••••••••••••••• ••••••••••••••oooo 3110 

C*  PRINT  OUT  DERIVATIVES  AT  THE  OFF-LINE  PRINTER  (12  PER  LINE).  *00003120 

C***** ••*•••••*•*••••***•*••*••**•*••••••••••••*•*••**•••••••••••••••••*000031 30 
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c 00003140 

3150  N HIT  E (7,6)  (IDPR  (J)  , J*  IBEG,  I NO  H)  00003150 

• RITE  (7,13)  (TtHP(J)  ,J*IBEG,IN0H)  00003160 

■ RITE  (7,7)  (TEHP2(J)  ,J*IBEG,  INUH)  00003170 

I BEG  = IRON  ♦ 1 00003180 

C 00003190 

IP  (IPIN.EQ.  1)  GO  TO  4001  00003200 

4000  CONTI N OE  00003210 

C 00003220 

C *•••••**•••*•**•••****••*•**••**•••*******••*••••**•*•••****•••*•••**•* 0000 32 30 

C*  THE  THIRD  SECTION  PRINTS  OOT  LRU  BEAR-OUT  RATE  ORDERED  BT  *00003240 

C*  SENSITIVITT.  *00003250 

C*** •**•••*•*••*****•*••*••*•**•********•**•*•****• •••••••*•*••*•**••••*0000  3260 

C 00003270 

4001  IP  (LDNOR.EO.0.  AN  D.LDERT.  EQ.  0)  GO  TO  6001  00003280 

C 00003290 

ILDNOR  « H AIO  (LDBBf  ,LDBOR)  00003300 

DO  4050  I«1, ILDNOR  00003310 

TEH P (I)  • HP  (IDNOR  (I) ) 00003320 

T EH P2  ( I)  • TDHOR ( IDNOR  ( I) ) / 100000C.  00003330 

4050  CORTINOE  00003340 

C 00003350 

IP  (LDBOR.EQ-0.OR.PRNT.EQ.  1)  GO  TO  5001  0000336C 

NRITE  (6,14)  00003370 

IPIN  * 0 00003380 

IBEG  » 1 00003390 

INtlR  » 0 00003400 

ILDNOR  * LDBOR  00003410 

C 00003420 

(;•••••••••••«•  *•••••••*•••*••••••••••••*••*•••••••••••••••••••••••*»•-.«'  0000  34  30 

C*  COHPUTE  CHARGE  IN  BEAN-OCT  BATE  POR  NOHBEB  OP  DERI VATI TBS  REyU23?»r  *00003440 
C***** •••••••••••••*••••••*••**•*••**••**•*•*•••*••••*•••• ***•••♦  <•••* ••00003450 

C 0000346C 

DO  5000  1*1,34  00003470 

IP  (ILDNOR. GT.6)  GO  TO  4100  00003480 

I HUH  * ILDBOR  ♦ IRUH  00003490 

IPIN  * 1 00003500 

GO  TO  4150  00003510 

4100  INUH  * 6 ♦ INUH  0000352C 

ILDBOR  * ILDHOR-6  00003530 

C 00003540 

C*«* •••••••••••••*•• •«•••••••••*••**•••••••••••••••••••••* ••••••••••••••0000 3550 

C*  PRINT  OUT  DERIVATIVES  AT  TERHINAL.  (4  PER  LINE)  *0000  3560 

C****» *••**•••*•*•••*•**•••********•***••**••••*•*•••••••*•*••••*••••• **0000 3570 

C 00003580 

4150  BRITE  (6,4)  (I  DBOF  (J ) , J*  IBEG , I NO  H)  00003590 

BRITE  (6,15)  (TEHP(J)  , J*IPEG, INUH)  O0001600 

WRITE  (6,5)  (TEHP2  (J)  , J« IBEG,  I NOH)  00003610 

IBEG  * INUH  ♦ 1 00003620 

C 00003630 

IP  (IPIN.EQ.1)  GO  TO  5001  00003640 

5000  CONTINUE  00003650 

C 00003660 

5001  IP  (PRNT.EQ.O)  GO  TO  6C01  00003670 

WRITE  (7,14)  00003680 

IFIN  « 0 00003690 

IBEG  * 1 00003700 

INUH  * 0 0000 37 10 

ILDWOR  * H AIO  (LDERV, LDBOR)  00003720 

C 000C3730 

DO  6000  1*1,17  00003740 

C 0O003750 

IP  (ILDBOR. GT.  12)  GO  TO  5100  00003760 
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IHdfl  = ILDWOB  ♦ INDH  00003770 

I FIN  = 1 0900  3780 

GO  TO  5150  00003790 

5100  INUN  * 12  ♦ INUH  00003800 

ILDNOB  = I LD  BOB-1 2 00003810 

C 00003820 

(;•••••**•••••• ••*••••***•••••*•*••••••**••••••**•••••*•*•••••*•••••••*••000038 30 

C*  PBINT  OOT  DERIVATIVES  NT  THE  OFF-LINE  PBINTEB  (12  PEB  LINE)  *000038*0 

C *****************  *********************** •*******•••**•*•* *****•••*••*** 000 0 3850 
C 00003860 

5150  WRITE  (7,6)  (I  D BOR(  J)  , J*IB  EG,  I NON)  00003870 

WRITE  (7,16)  (TEHP(J)  , J= IBEG, I NON)  00003880 

WRITE  (7,7)  (TEHP2(J)  , J-IBEG  , I NON)  00003890 

IBEG  * INUN  ♦ 1 00003900 

C 00003910 

IF  (IFIN.EQ.1)  GO  TO  60C1  00003920 

6000  CONTINOE  00003930 

C 00003940 

C* ****** ************ *••***•*•*•**•*••*•*********•**• ***•****•*****•••• **0000 39 50 

C*  THE  FOOBTH  SECTION  PRINTS  OOT  LRO  PALS E POLL  BATE  ORDERED  BT  *00003960 

C*  SENSITIVITY.  *00003970 

c***«* •*••*••••••*•••••*•••••••**•••**••••*•*••••*•*•••••••*••••••••*•••00003980 

C 00003990 

6CC 1 IF  (LDFPR. EQ.O. AND. LDERV.EQ.O)  GO  TO  B001  00004000 

C 00004010 

ILDFPR  * NAXO  ( LDBRV  , LDFPR)  00004020 

DO  6050  1*1,  ILDFPR  00004030 

TENP(I)  * FINC  * FPR  (IDFPB  (I)  ) 00004040 

TENP2 (I)  * TDFPB (IDFPB (I))  / 1000000.  00004050 

6050  CONTINOE  0000 4060 

C 00004070 

IF  (LDFPR. EQ. 0. OR. PRNT.EQ.1)  GO  TO  7001  00004080 

WRITE  (6,17)  00004090 

IFIN  * 0 00004100 

IBEG  = 1 00004110 

INUN  * 0 00004120 

ILDFPR  * LDFPR  00004130 

C 00004140 

C***«* •••••••• •••*••••••••**••••*•*•••••••••••••••••••••••••••••••••••••00004150 

C*  CONPO*E  CHANGE  IN  FALSE  POLL  RATE  FOR  NONBER  OF  DERIVATIVES  *00004160 

C*  REQOBSTED.  *00004170 

C****« •••••••••••••*•••*•••**••**•*•••••••••••••••••••••••••••••••••••••00004180 

C 00004190 

DO  7000  1*1,34  00004200 

IF  (ILDFPR. GT.6)  GO  TO  6100  00004210 

INUN  * ILDFPR  * IN MH  00004220 

IFIN  » 1 00004230 

GO  TO  6150  00004240 

6100  INUN  * 6 ♦ I NON  00004250 

ILDFPR  * ILDFPR-6  00004260 

C 00004270 

C*«« ••••••••••••••••*•*•••*•••••••••••••••••••••••••••••••••••••••••••••00004280 

C*  PBINT  OOT  DERIVATIVES  AT  TERRIRAL  (6  PER  LINE)  *00004290 

c**« •••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••••••••••,00004300 

C 00004310 

6157  WRITE  (6,4)  (IDFPB  (J)  ,J*IBEG,INON)  00004320 

WRITE  (6,18)  (TEHP(J)  , J*IBEG , I NON)  00004330 

WRIT  (6,5)  (TEHP2  (J)  ,J*IBEG,INON)  00004340 

IBEG  * INUN  ♦ 1 00004350 

C 00004360 

IF  (IFIN.EQ.1)  GO  TO  70C1  00004370 

7000  CONTINOE  00004380 

C 00004390 
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7001 

IP  (PHNT.EQ.O)  GO  TO  8001 

0000440C 

■ RITE  (7,17) 

00004910 

IFIH  * 0 

00004420 

IBEG  = 1 

00004430 

limp  * o 

00004440 

ILDPPB  * HAXO (LDEBT.LDPPR) 

00004450 

C 

00004460 

DO  8000  1*1,17 

00004470 

C 

00004480 

IP  (ILDPPR.GT.12)  GO  TO  7100 

00004490 

INUH  * ILDPPB  ♦ MOB 

00004500 

I PIB  » 1 

00004510 

GO  TO  7150 

00004520 

7100 

man  * 12  ♦ man 

00004530 

ILDPPB  * ILDFPR-12 

00004540 

c 

00004550 

c»»* 

**** 

•*•00004560 

c* 

PRINT  OUT  DERIVATIVES  AT  THE  OPP-LIBE  PRINTER  (12  PER  LIRE) 

•00004570 

**** 

•••00004580 

c 

00004590 

7150 

BRIT  E (7,6)  (IDPPR  (J)  , J* IBEG , I HUH) 

00004600 

■ RITE  (7,19)  (TEHP(J)  , J*IBBG  , THOH) 

00004610 

BRITE  (7,7)  (TEHP2  (J)  ,J*IBEG,INUB) 

00004620 

IBEG  * IBUH  ♦ 1 

00004630 

C 

00004640 

IP  (IPIN.EQ.1)  GO  TO  8001 

00004650 

8000 

COHTIHOE 

i 

00004660 

c 

00004670 

••*00004680 

c* 

THE  PIPTH  SECTIOB  PRINTS  OUT  LRU  CHP  REPAIR  TIH8  ORDERED  BT 

•00004690 

c* 

SERSITI  VITT. 

•00004700 

**•* 

••*00004710 

c 

00004720 

8001 

IP  (LDCHR.  EQ  .0  . AN  D.LDER  V . EQ.O)  SO  TO  10001 

00004730 

c 

00004740 

ILDCHH  • HA10  (LDBBV.LDCHH) 

00004750 

DO  8050  1*1, ILDCHH 

00004760 

TEHP(I)  - PI  HC  • CHH  (IPCHH  (I)  ) . 

00004770 

TEH P2 ( I)  * TDCfl  H(  IDCHH  ( I) ) / 1000000. 

00004780 

8050 

COHTIHOE 

00004790 

c 

00004800 

IP  (LDCHH.EQ.0.OR.PRNT.EQ.1)  GO  TO  9001 

00004810 

BRITE  (6,20) 

* 

00004820 

IPIN  » 0 

00004830 

IBEG  * 1 

00004840 

IHOH  * 0 

00004850 

ILDCHH  * LDCHH  ' 

00004860 

c 

00004870 

c*«* 

«***! 

*••00004880 

c* 

COHPOTE  CHANGE  IH  CHP  REPAIR  'III!  POR  NON BER  3P  DERIVATIVES 

•00004890 

c* 

REQUESTED. 

*00004900 

•••00004910 

c 

00004920 

DO  9000  1*1,  39 

00004930 

IP  (ILDCHH. GT. 6)  GO  TO  81C0 

0000494C 

I NUN  * ILDCHH  ♦ INOH 

00004950 

IPIN  = 1 

00004960 

GO  TO  8150 

00004970 

8100 

INOH  * 6 ♦ I NUH 

00004980 

ILDCHH  * ILDCHH-6 

00004990 

c 

00005000 

»***< 

•••00005010 

c* 

PRINT  OUT  DER IVATTV PS  AT  TENHTHAL  (6  PER  LINE) 

•00005020 
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c*** ••••••••**•**•••***•••••*•*•••**•*••*••*•••*•••*•••*•••*•**«• 

c 

.8150  WRITE  (6,4)  (I  DCHH  ( J)  , J*IBEG,  I HUH) 

WRITE  (6,21)  (TEHP(J)  , J*  I BEG,  I HUH) 

WRITE  (6,5)  (TEHP2(J|  ,J*IBEG  , I HUH) 

IBEG  * IBOB  ♦ 1 
C 

IP  (IPIH.EQ.1)  GO  TO  9001 
900"  COWTIMOE 

C 

900 1 IP  (PRST.EQ.O)  GO  TO  10001 
WRITE  (1,2  0) 

IPIN  = n 
IBEG  * 1 
IHUH  = 0 

ILDCHH  * IUI0  ( LDERV  , LDCHH) 

C 

DO  10000  1*1,17 

C 

IP  (ILDCBH.GT.  12)  GO  TO  9100 
IHUH  * ILDCHH  ♦ INUH 
IPIW  * 1 
GO  TO  9150 

9100  I HUH  * 12  ♦ IBUH 

ILDCHH  = ILDCHH-12 
C 

(;*•••••••*••••••••*••**•*•*•••••*••*•••••••»•••••••••••*••••••••» 

C*  PRIHT  OUT  DERIVATIVES  AT  THE  OPP-LIIHE  PRIHTBR  (12  PER  LIWE) 

••••••*•••*•*•*•*•*••*••••••••••*•**•****••••••••••••••••••' 

c 

915n  WRITE  (7,6)  (IDCHH(J)  , J*I BEG,  I WUH) 

WRITE  (7,22)  (TEHP(J)  ,J* IBEG, I HUH) 

WRITE  (7,7)  (TEHP2(J)  , J *IBEG , I HUH) 

IBEG  * I HUH  ♦ 1 

C 

IP  (IPIH.EQ.1)  GO  TO  10001 

10000  COHTIHUE 

C 

C*»m ••••****••••***•••**••*••*•****•**••******•**••••*••••••**•«• 

C*  THE  SIXTH  SECTIOH  PRIHTS  OUT  LRU  DEPOT  REPAIR  TIHE  ORDERED  BT 
C*  SEHS  IT  IV  ITT . 

C***** *•**•* ***•*•••*•**•***•**•**••*•*****•••**•*•*•••*•• **•••**' 

c 

10001  IP  (LDDHH.  EQ.O.AHD.LDERV.EQ.O)  GO  TO  12001 

C 

ILDDHH  = HAXO(LDERV, LDDHH) 

DO  10050  1*1, ILDDHH 

TEHP(I)  = FIHC  * DNH  (IDDHH  (I)  ) 

TEH P2  (I)  * TDDNH(TDDHH(I))  / 1000000. 

10050  COHTIHUE 
C 

IP  (LDDHH.  EQ.O. OR  .PRHT.  EO.  1)  GO  TO  11001 
WRITE  (6,23) 

IPIH  « 0 
IBEG  * 1 
IHBH  * 0 
ILDDHH  * LDDHH 
C 

C* ••••••••*•**•••••*••**•••***•*•••*•••••••••••••••••••••••• •••••' 

C*  COHPUTE  CHARGE  IH  DEPOT  REPAIR  TIHE  POt  RUBBER  OP  DERIVATIVES 
C*  REQUESTED. 

C*»» 

C 


•00005030 

00005040 

00005050 

00005060 

00005070 

00005080 

00005090 

00005100 

00005110 

00005120 

00005130 

00005140 

00005150 

00005160 

00005170 

00005180 

00005190 

00005200 

00005210 

00005220 

00005230 

00005240 

00005250 

00005260 

00005270 

00005280 

•00005290 

•00005300 

•00005310 

00005320 

00005330 

00005340 

00005350 

00005360 

00005370 

00005380 

00005390 

0P005400 

•00005410 

•00005420 

•00005430 

•00005440 

00005450 

00005460 

00005470 

00005480 

00005490 

00005500 

00005510 

00005520 

00005530 

00005540 

00005550 

00005560 

00005570 

00005580 

00005590 

00005600 

•00005610 

•00005620 

•00005630 

•00005640 

00005650 
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DO  11000  1*1,34 

IF  (ILDDHH .GT. 6)  GO  TO  10100 
INUH  = ILDDRR  ♦ INUB 
I FIH  = 1 
CO  TO  10150 

10100  I BOB  * 6 ♦ I NUB 

I LDDRH  = ILDDBH-6 

C 

(;••••••*••••••*•*•••*••*•**•*•*•••••*••*•••••**••••••*•••••••*•*•«*• 

C*  PRINT  OUT  DEBIT  ATI?  ES  AT  TERR  INAL  (6  PER  LINE) 

£••••*••••••••••••••••••••••••*•*••**•*•••••••*••••••••••••••*••*•••' 

C 

10150  WRITE  (6,4)  (IDDHH(J)  , J-IBBG,  INUB) 

WRITE  (6,24)  (TERP(J)  , J*I  BEG,  T BUR) 

WRITE  (6,5)  (TEHP2(J)  , J = IBEG  , I RUB) 

IBEG  * I NOR  ♦ 1 
C 

IF  (IPIN.EQ. 1)  GO  TO  11001 

11000  CONTINOE 

C 

11001  IF  (PRNT.EQ.O)  GO  TO  12001 
WRITE  (7,23) 

IF  IN  * 0 
IBEG  * 1 
I NUN  * 0 

ILDDRH  « RATO (LDERT, LDDRH) 

C 

DO  12000  1*1,17 
C 

IP  (ILDDHH  .GT.  1 2)  GO^O  11100 
INUB  * ILDDHH  ♦ INOB 
I FIN  * 1 
GO  TO  11150 

11100  INUB  * 12  ♦ INUH 

ILDDHH  * ILDDHH-12 
C 

(;••••**•••••*•*••*••***••••••••••••»*****•••*•••••*•••••••*••••••*•• 

C*  PRINT  OUT  DERITATITES  AT  THE  OFF-LINE  PRINTER  (12  PER  LIRE) 

C*** *•***••**•••••**•*•*•*••*••*•*•*•*•••••••••*••**•••••* •*•*•••***' 

c 

11150  WRITE  (7,6)  (IDDHH(J)  , J*IBEG,  INUB) 

WRITE  (7,25)  (TENP(J)  , J«  IBEG,  I RUB) 

WRITE  (7,7)  (TEHP2(J)  , J *IBEG , I BOR) 

IBEG  * I RUR  ♦ 1 
C 

IF  (IPIN.EQ. 1)  GO  TO  12001 
12000  CORTIRUE 

C 

C*  THE  SETERTH  SECTION  PRINTS  OUT  LRU  REPAIR  R ATERIAL  COSTS  ORDERED 
C*  BT  SENSITITITT. 

C •••••••••••••*••••••••*••*•*•*•***•*•**••••**•*•••••••••• •••••*•••*' 

C 

1200  1 IF  (LDRH.EQ.O.  AN D.LDBR T.  EQ . 0)  GO  TO  14001 

C 

ILDRH  « HAXn  (LDERV.LDRB) 

DO  12050  1*1, ILDRH 

TEHP(I)  * PINC  • RB  (IDRB  (I) ) * UC(IDRH(I)| 

TEHP2  ( I)  * TDRH  (IDRB  (I) ) / 10C000P. 

12050  CONTINUE 

C 

IP  (LDRH.EQ.O. OR. PENT. EQ.1)  GOTO  13001 
WRITE  (6,26) 


00005660 
00005670 
00005680 
00005690 
00005700 
00005710 
00005720 
00005730 
*00005740 
*00005750 
•00005760 
00005770 
00005780 
00005790 
00005800 
00005810 
000058  20 
00005830 
00005840 
00005850 
00005860 
00005870 
00005880 
00005890 
00005900 
00005910 
00005920 
000059  30 
00005940 
00005950 
00005960 
00005970 
00005980 
00005990 
00006000 
00006010 
•00006020 
•00006030 
•00006040 
00006050 
00006060 
00006070 
00006080 
00006090 
00006100 
00006110 
00006120 
00006130 
'•00006140 
•00006150 
•00006160 
•00006170 
00006180 
00006190 
00006200 
00006210 
0O006220 
00006230 
00006240 
00006250 
00006260 
00006270 
00006280 
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Ip  IN  * 0 00006 19P 

IBEG  * 1 00006j00 

INUH  * 0 00006 JtO 

ILDRN  * LDRH  00006320 

C 00006330 

C*** •*••«••*•***••*••*••*••••**•••*•*•***•«**••*•••••*•••• ••••••••••••••00006 340 

C*  CONPn-E  CHANGE  IN  REPAIR  HAT  ERIAL  COSTS  FOR  NON  BER  OP  DER I PATITES  *00006150 

C*  REQUESTED.  *00006360 

C* •********•**•*****•*•*•**••****•******•****•••*•*•*••*•*•••••*••••••• *000 36 370 

C 00006 300 

DO  13000  1*1,  34  00006390 

IP  (ILDRN. GT. 6)  GO  TO  12100  00006400 

I NUN  * ILDRN  * INUN  00006410 

I P IN  * 1 00006420 

GO  TO  12150  00006430 

121C0  INUN  * 6 ♦ INUN  00006440 

ILDRN  * ILDRN-6  00006450 

C 00006460 

c*«* ••••••*••**••*•••••••••*••••••••••••••••••••••••••••••••••••••••••••00006470 

C*  PRINT  OUT  DERI7ATIYES  AT  TERNINAL  (6  PER  LINE)  *00006480 

C**« *•*•*••••*••**•••••**•••*••**••••••*•*••*••*•*•••*•*••••••••••••••••00006490 

C 00006500 

12150  WRITE  (6,4)  (IDRN  (J)  ,J* IBEG, INUH)  00006510 

WRITE  (6,27)  (TENP(J)  , J =IBEG  , I NUN)  00006520 

WRITE  (6,5)  (TENP2  (J)  , J=  IBEG , INUN)  00006530 

IBEG  = INUN  ♦ 1 00006540 

C 00006550 

IP  (IPIN.EQ.1)  GO  TO  13001  00006560 

13000  CONTI NUP  00006570 

C 00006580 

13001  IP  (PRNT.EQ.O)  GO  TO  14001  00006590 

WRITE  (7,26)  00006600 

IPIN  = 0 00006610 

IBEG  - 1 00006620 

INUN  * 9 00006630 

ILDRN  * NAX9  (LDERV.LDRH)  00006640 

C 00006650 

DO  14000  1*1,17  00006660 

C 00006670 

IP  (ILDRN. GT. 12)  GO  TO  13100  00006680 

INUN  * ILDRN  ♦ INUN  00006690 

IPIN  * 1 00006700 

GO  TO  13150  00006710 

13100  INUN  = 12  ♦ INUN  00006720 

ILDRN  * ILDRN-12  00006730 

C 00006740 

(-•*• •••••••••• •••••••••••••••*••••••••••• •••••••••••••••••••••••••••••••00006750 

C*  PRINT  OUT  DERI7ATI7ES  AT  THE  OPP-LINE  PRINTER  (12  PER  LINE)  *00006760 

C*** •••••••••• •••*••**••••••••*••*•••••••••••••*•**•••*••• ••••••••••••••00006770 

C 00006780 

13150  WRITE  (7,6)  (IDRN  (J)  ,J*IBEG,  INUN)  00006790 

WRITE  (7, 2R)  (TEHP(J) , J*IBEG, INUN)  00006800 

WRITE  (7,7)  (TEHP2  ( J)  ,J*IBEG,INUN)  00006810 

IBEG  * INUN  ♦ 1 00006820 

C 00006830 

IP  (IPIN.EQ.1)  GO  *0  14001  00006840 

140CO  CONTINUE  00006850 

C 00006860 

c**.*»*« •••*•*••••••••••••••••••••••••••••••••••••••••••••••••••••••••••00006870 

C*  THE  EIGHTH  SECTION  PRINTS  OUT  LRU  SITE  REPAIR  FRACTION  ORDERED  BI  *00006880 

C*  BT  SENSITITITT,  NOT  INCLUDING  SE.  *00006890 

(;••••••• ••••••••••••••*••••• ••••••••••••*••••••••••••••••••••••••••*••••00006900 

C 00006910 
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1*001  IF  (LDSRTS. EQ.C.  AND. LDEPV.EQ.O)  GO  TO  16001 
C 

ILDSRT  * HAXO ( LDE RV , LDS RTS ) 

00  1*050  1*1, ILDSRT 

TERP(I)  * SFSRTS(ID5RTS  (I)  ) 

TFHP2(I)  * TDSRTS(IDSRTS  (1)1  / 1000000. 

1*050  CONTINUE 
C 

IF  (LDSRTS.EQ.O.OR.PRNT.  EQ.  1)  GO  TO  15001 
NRITE  (6,29) 

IPIN  * C 
IBEG  * 1 
INUN  * 0 
ILDSRT  * LDSRTS 
C 

C*** *•**•••*•*•*••*•••••••*****•*•••••****•*••••••••***•••••***•♦*** 

C*  COBPOTB  CHANGE  IN  SITE  REPAIR  FRACTION  FOR  NUHBER  OF  DERIVATIVES 
C*  REQUESTED. 

c*«* •*••••*•••**•••*••*••••••••*•••••••••••••••••••••••*••* •*•*••••• 

C 

DO  15000  1*1,3* 

IP  (ILDSRT. GT. 6)  GO  TO  1*100 
INUH  * ILDSRT  ♦ INUH 
I FIN  * 1 
GO  TO  1*150 

1*100  INUH  * 6 ♦ INUH 

ILDSRT  * I LDSHT-6 
C 

C**« ••••••*•*••*•*••••••••*••••*•*••*•••*♦«••••*•••**••• ••*•*••••*•• 

C*  PRINT  OUT  DERIVATIVES  AT  ‘•ERHINAL  (6  PER  LINE) 

C************* *•••*••**•••*•*•**** *•••••••••••••••••»•*••**•••*••••• 

C 

1*150  RRITE  (6,4)  (IDSRTS  (J|  ,J*IBEG,  INUH) 

BRITE  (6,30)  (TEHP(J)  , J*  IBEG  , I NU 1) 

RRITE  (6,5)  (TEHP2(J)  , J*IBEG , I NUN) 

IBEG  * INUH  ♦ 1 
C 

IF  (IFIN.EQ.1)  GO  TO  15001 

15000  CONTINUE 

C 

15001  IF  (PRNT.EQ.O)  GO  TO  16001 
RRITE  (7,29) 

IPIN  =■  0 
IBEG  * 1 
INUH  = 0 

ILDSRT  * HAIO(LDERV, LDSRTS) 

C 

DO  16000  1*1,17 
C 

IF  (ILDSRT. GT. 12)  GO  TO  15100 
INUH  * ILDSRT  ♦ INUH 
IFIN  - 1 
GO  TO  15150 

15100  INUH  * 12  ♦ INUH 

TIDSRT  * ILDSRT-12 

C 

c***  •••••••••*•**•*•*•••••••*••••••**•••*••**•*••••  *•**■*•*•••• 

C*  PRINT  OUT  DERIVATIVES  AT  THE  OFF-LINE  PRINTER  (12  PER  LINA) 

C*** ••••••••••••••••*•*•**•*•••**•*******•**•••••••••••••••• ••***••• 

c* 

15150  RRITE  (7,6)  (I  DSRTS  ( J)  , J * IBEG,  INUH) 

RRITE  (7,31)  (TEHP(J)  , J*  I BEG,  I NUN) 

RRITE  (7.71  (TEHP2(J)  , J *IBEG , I NUN) 


00006920 

00006930 

000069*0 

00006950 

00006960 

00006970 

00006980 

00006990 

00007000 

00007010 

00007020 

00007030 

000070*0 

00007050 

00007060 

*00007070 

*00007080 

*00007090 

'*00007100 

00007110 

00007120 

00007130 

000071*0 

00007150 

00007160 

00007170 

00007180 

00007190 

•00007200 

*00007210 

*00007220 

00007230 

000072*0 

00007250 

00007260 

00007270 

00007280 

00007290 

00007300 

00007310 

00007320 

00007330 

000073*0 

00007350 

00007360 

00007370 

00007380 

00007390 

00007*00 

00007*10 

00007*20 

00007*30 

00007**0 

0(,007*50 

00007*60 

00007*70 

•00007*80 

•00007*90 

*00007500 

00007510 

00007520 

00007530 

000075*0 


< 


i 
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IBEG  = I NUB  ♦ 1 00007550 

C 00007560 

xr  (IFIN.EQ.  1(  GO  T0  16001  00007570 

16000  CONTINUE  00007580 

C 00007590 

C****» •••*••••••••••••••*•*•*•••••••*••*••••••*••••••••••• •*••••••••••••00007600 

C*  THE  NINTH  SECTION  PRINTS  OUT  LRU  CHP  REPAIR  FRACTION  ORDERED  BY  *00007610 

C*  SENSITIVITY,  NOT  INCLUDING  SE.  *00007620 

C*** •*•*•••*•*•*•*****••**•***•**•••*•••*•••***••••••••••••••••*•••••*••000076 30 

C 00007640 

16001  IE  (LDCRTS.EQ.O.AND.LDERY.EQ.O)  GO  TO  18001  00007650 

C 00007660 

ILDCHT  * HAXO (LDERV, LDCRTS)  00007670 

DO  16050  1*1, ILDCRT  00007680 

TEHP(I)  * CFCRTS  (IDCRTS  (I))  00007690 

TEHP2(I)  = TDCRTS  (IDCRTS  (I)  ) / 1000000.  00007700 

16050  CONTINUE  00007710 

C 00007720 

IF  (LDCRTS. EQ.O. OF. PRNT.  EQ.  1)  GO  TO  17001  00007730 

NRITE  (6,  32)  00007740 

IFIN  * 0 00007750 

IPEG  * 1 00007760 

I NUN  * 0 00007770 

ILDCRT  * LDCRTS  00007780 

C 00007790 

C*** *•*******•••********•***••**•••***•*•***•***••*•****•• *•**•**••••***00007800 

C*  COHPUTE  CHANGE  IN  CHF  REPAIR  FRACTION  FOB  NONBER  OF  DER IVATIFES  *00007810 

C*  REQUESTED.  *00007820 

C*** ••••*«****•**•*•**•*•*•• •*•*••**•**•**•*****•*•*••**•**••**•••**•*•*00007830 

C 00007840 

DO  17000  1*1, 34  00007850 

IF  (ILDCRT. GT. 6)  GO  TO  16100  00007860 

I NUH  * ILDCRT  ♦ INUH  00007870 

IFIN  = 1 00007880 

GO  TO  16150  00007890 

16100  INUH  - 6 ♦ INUH  00007900 

ILDCRT  * ILDCRT-6  00007910 

C 00007920 

c* ••••••••••*••••••••••••••••*••••••*•••••••••••••*•••••••••••••••••••••000079 30 

C*  PRINT  OUT  DERIVATIVES  AT  TERHINAL  (6  PER  LINE)  *00007940 

C***  *• •*•*•***••*****••••*•• *****••*••******••*••••****•*••••••*••••*•••00007950 

C 00007960 

16150  NRITE  (6,4)  (IDCRTS  (J)  , J*XBEG,  INUH)  00007970 

NRITE  (6,33)  (TEHP(J)  ,J*IBEG,  INUH)  00007980 

NRITE  (6,5)  (TEHP2  (J)  ,J«IBEG,  INUH)  00007990 

IBEG  * INUH  ♦ 1 00008000 

C 00008010 

IE  (IFIN.EQ.  1|  GO  TO  17001  00008020 

17000  CONTINUE  00008030 

C 00008040 

1700 1 IF  (PRNT. EQ.O)  GO  TO  18001  00008050 

NRITE  (7,  32)  00008060 

IFIN  * 0 00008070 

IBEG  * 1 00008080 

INUH  » 0 00008090 

ILDCRT  * HA*0(LDEFV, LDCRTS)  00008100 

C 00008110 

DO  18000  1*1,17  00008120 

C 00008130 

IF  (ILDCRT. GT. 12)  GO  TO  17100  00008140 

INUH  * ILDCRT  ♦ INUH  00008150 

IFIN  * 1 00008160 

GO  TO  17150  00008170 
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17100  INON  * 12  ♦ I NO H 00008180 

ILDCBr  * ILDCRT-12  00008190 

C 00008200 

(;••••»*•*••••• ••••••••••••••••••***••••••••••••••••*••••••••*•***•*•••••00008210 

C»  PRINT  OOT  DERIVATIVES  AT  THE  OFF-LINE  PRINTER  (12  PER  LINE)  *00008220 

C* ••***••••••••*•*****•••••*••*••• ••••••••••••••••••••••••••••••••••••••00008230 

C 00008290 

17150  BRITB  (7,6)  (IDCRTS  (J)  , J-IBBG,  INUH)  00008250 

NRITE  (7,39)  (TEHP(J)  , J *IBEG , I NUH)  00008260 

9RITE  (7,7)  (TENP2  (J)  ,J*  I BEG,  I NUH)  00008270 

IBEG  - INON  * 1 00008280 

C 00008290 

IE  (IEIN.EQ.1)  GO  TO  18001  00008300 

18000  CONTINUE  00008310 

C 00008320 

c*«*  •*••*••*••••••••  *•••••*•*••*••••••••*••••*••*••*•••••••»««-*<•'*•••••  00008330 

C*  THE  TENTH  SECTION  PRINTS  OOT  LRU  DEPOT  REPAIR  FRACTION  ORDERED  B*  *00008390 
C*  SENSITITITT,  NOT  INCLUDING  SE,  *00008350 

C*** •****••*••*•*•*•***•****••******•***********••************♦*•***** **0000 8360 
C 00008370 

18001  IE  (L DDRTS . EQ.0.AND.LDERE.EQ.3)  GO  TO  20001  00008380 

C 00008390 

ILDDRT  = NAIO  (LDERT.LDDRTS)  00008400 

DO  18050  1*1, ILDDRT  00008910 

TEHP(I)  - DEDRTS  (IDDRTS  (I)  ) 00008420 

T EH  P2  ( I)  * TDDRTS  (IDDRTS  (I))  / 1000000.  00008430 

18050  CONTINUE  00008490 

C 00008450 

IE  (LDDRTS.EQ.0.OR.PRNT.EQ.1)  GOTO  19001  00008460 

WRITE  (6,35)  00008470 

IE  IN  * 0 00008480 

IBEG  * 1 00008490 

IRUH  * 0 00008500 

ILDDRT  * L DDRTS  00008510 

C 00008520 

C*** *•***••**• *•*•****•**•***•**•• *•**********•••*•*****••****•***••*••• 00008530 
C*  COHPOTE  THE  CHANGE  IN  DEPOT  REPAIR  FRACTION  FOR  THE  RUBBER  OF  *00008540 

C*  DER I TATI TES  REQUESTED.  *00008550 

C*** •******•*•*•**•***••*•••*•*********•**•****•*••*•••••••••••*•*•**• **0000 8560 

C 00008570 

DO  19000  1*1, 34  00008580 

IE  (ILDDRT. GT. 6)  GO  TO  18100  00008590 

INUN  * ILDDRT  « IRON  00008600 

IEIN  * 1 00008610 

GO  TO  18150  00008620 

18100  IRUH  * 6 ♦ INUN  00008630 

ILDDRT  - ILDDRT-6  000086*0 

C 00008650 

(^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••0000866C 

C*  PRINT  OUT  DERIVATIVES  AT  TERHINAL  (6  PER  LINE)  *00008670 

C**« ••*••••••••••••• •••••«•••••••••••• •••••••••*•••••••••••••*••••••••••00008680 

C 0000869C 

18150  NRITE  (6,4)  (I  DDRTS  ( J)  , J *1  BEG,  I NUH)  00008700 

WRITE  (6,36)  (TEHP(J)  , J*  I BEG,  I NUH)  00008710 

WRITE  (6,5)  (TEHP2(J)  , J *IBEG , I NUH)  00008720 

IBEG  * INUN  ♦ 1 00008710 

C 00008740 

IE  (IEIN.EQ.1)  GOTO  19C01  00008750 

19000  CONTINUE  00008760 

C 00008770 

19001  IE  (PRNT.EQ.O)  GO  TO  20001  00008780 

WRITE  (7,35)  00008790 

IEIN  * 0 00008800 
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IBEG  = 1 00008810 

1808  * 0 00008820 

ILDDRT  = HAXO(LDERV.LDDPTS)  00008830 

C 00008840 

DO  20000  1=1,10  00008850 

C 00008860 

IP  (ILDDRT. GT.  1 2)  GO  TO  19100  00008870 

I N 08  = ILDDRT  ♦ INUH  00008880 

I P IN  = 1 00008890 

GO  TO  19150  00008900 

19100  I NU  H = 12  ♦ INUH  00008910 

ILDDRT  = ILDDRT-12  00008920 

C 00008930 

c ••*••••*••••••••••*•*•**••• 00008940 

C*  PRINT  OOT  DERIVATIVES  *T  THE  OPP-LINE  PRINTER  (12  PER  LI NE)  *00008950 

C*** ******  ********  **********  **  *•*•*********•*****•♦*****•***•***•***••**00008960 
C 00008970 

19150  RRITE  (7,6)  (IDDRTS  (J)  , J=IBEG,  INUH)  00008980 

RPITE  (7,37)  (TEHP(J)  , J=  IBEG,  I ROB)  00008990 

WRITE  (7,7)  (TEHP2(J)  , J=IBEG , I NUN)  00009000 

IBEG  = INCH  ♦ 1 00009010 

C ' 00009020 

IP  (IFIN.EQ.ty  GO  TO  20001  00009030 

20000  CONTINOE  00009040 

C 00009050 

C*** ******** ********•*•*•*•****•••*••** •••••****••••**•••••••*•••••••*••00009060 

C*  THE  ELEVENTH  SECTION  PRINTS  OOT  LFO  HISSION  CRITICAL  ORDERED  BT  *00009070 

C*  SENS  IT IV IT T POR  LROS  WITH  HCI  >=  1.  *00009080 

C********************************* ***•*•**•••***•*•*** ••**••*•*•****••••00009090 

C 00009100 

20091  IP  (LDHCI.EQ.O.AND. LDERV.EQ.O)  GO  TO  22001  00009110 

C 00009120 

ILDHCI  = HAXQ  ( LDE  RV , LDHCI)  00009130 

DO  20C50  1=1, ILDHCI  00009140 

ITEHP(I)  = HCIC  (IDHCI(I)  » 00009150 

TEH  P2 (I)  = TDHCI (IDHCI (I) ) / 1000000.  00009160 

20050  CONTINUE  00009170 

C 00009180 

IF  (LDHCI.  EQ.O. OR  .PRNT.EQ.  1)  GO  TO  21001  00009190 

WRIT  (6,38)  00009200 

IF  IN  = o 00009210 

IBEG  = 1 00009220 

INUH  * 9 00009230 

ILDHCI  = LDHCI  00009240 

C 00009250 

C* *••••*•**••*•**•*• *•••••••••••**•*••••*•***•*••*•**••******•**•***••••00009260 

C*  COHPUT E THE  CHANGE  IN  HCI  POR  NMHBER  OP  DERIVATIVES  REQUESTED.  *00009270 

C ***************•*•*••**•••***•*•••*•***•***•**••******••*••******•••* **00009290 
C 00009290 

DO  21000  1=1,34  00009300 

IP  (ILDHCI. GT. 6)  GO  TO  20109  00009310 

INUH  = ILDHCI  ♦ INUH  00009320 

IPIN  = 1 00009330 

no  TO  20150  00009340 

201fl9  INUH  = 6 ♦ INUH  00009350 

ILDHCI  = ILDHCI-6  00009360 

C 00009370 

C*** *****•******••*•*•*•*•••••*•***••*••**••••••*•••••*••••* ••*•***•••••00009 380 

C*  PRINT  OUT  DERIVATIVES  AT  TPRHINAL  (6  PER  LINE)  *00009390 

(;•*••••••••••• •••••• •••••••*•••••••••••••••••••••••••••*••••*•*••••*••••00009400 

C 00009410 

20150  WRITE  (6,4)  (I  DHCI  (J ) , J«  I BEG , I NUN)  00009420 

WRITE  (6,39)  (ITEHP(J)  ,J  = I BEG , INUH)  00009430 
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WRITE  (6  ) (TEBP2  (J)  ,J=IBEG,  INUB) 

IBEG  = INUB  ♦ 1 
C 

IF  (IFIN.EQ.1)  GO  TO  21001 

21000  CONTINUE 
C 

21001  IF  (PRNT.EQ.O)  GO  TO  22001 
■ RITE  (7,38) 

IFIN  = 0 
IB  EG  = 1 
INUB  = 0 

ILDBCI  = HAXO  (LDERT.LDBCI) 

C 

DO  22000  1=1,17 
C 

IF  (ILDBCI. GT. 12)  GO  TO  21100 
INUB  = ILDBCI  ♦ INUB 
IFIN  = 1 
GO  TO  21150 

21100  INUB  = 12  ♦ I NO  H 

ILDBCI  = ILDBCI-12 


* PRINT  OUT  DERI7ATITES  AT  THE  OFF-LINE  PRINTER  (12  PER  LINE) 


21150  NRITE  (7,6)  (IDBCI  (J ) , J-IBEG  , I NOB) 

■ RITE  (7,  40)  (ITEBP(J)  , J =IBEG,  IRON) 
WRITS  (7,7)  (TEBP2  (.1)  , J=IBEG,  INOH) 
IBEG  = IWOB  ♦ 1 

C 

IF  (IFIN.EQ.1)  GO  TO  22001 

22000  CONTINUE 

C 

22001  RETORN 
END 


00009*40 

00009*50 

00009460 

00009*70 

00009480 

00009490 

00009500 

00009510 

00009520 

00009530 

000095*0 

00009550 

00009560 

00009570 

00009580 

00009590 

00009600 

00009610 

00009620 

00009630 

000096*0 

00009650 

'*00009660 

•00009670 

*00009680 

00009690 

00009700 

00009710 

00009720 

00009730 

000097*0 

00009750 

00009760 

00009770 

00009780 

00009790 


c 

c* 

c 

C*| 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

C*1 

c 


c 

c 

c 


c 


c 


c 


c 


c 

c 


SUBROUTINE  A PHI  NT 


COHHON  BLOCK  ORGANIZATION 

IN  GENERAL,  FOR  EVERT  SUBROUTINE  THERE  IS  A COBHON  BLOCK  THAT 
CONTAINS  ALL  OP  THE  VARIABLES  THAT  FIRST  RECEIVED  VALUES  IN  THAT 
SUBROUTINE.  HENCE,  ALL  VARIABLES  THAT  ABE  READ  FROH  THE  UNIT  11 
FILE  IN  SUBROUTINE  READ1  BILL  BE  IN  COBHON  /RD1/;  ALL  VARIABLES 
CALCULATED  IN  SUBROUTINE  AUXIL 1 HILL  BE  IN  COBHON  /AUXl/J  ALL 
VARIABLES  CALCULATED  IN  SUBROUTINE  COST  1 HILL  BE  IN  COBHON  /Cl/; 

ALL  VARIABLES  CALCULATED  IN  SUBROUTINE  DFR  HILL  BE  IN  COBHON /TDFB/. 


COBHON  /CNTL/  EXI T.ITER , HAXPHT, PRNT, REDO, REREAD 
INTEGER  EXIT, PRNT, REDO, REREAD 

COBHON  /ERROR/  I ERROR, IH A RN 

COBHON  /I NIT/  CON FLO, BAXFA,HAXLR,BAXSE 

CC  H HON  /RD 1 / A DCH , A DPH  ,B,CAA, CADRE,  CCHP,  CDR,  CDH H, CLR  , CON F,CPB I, 

♦ CPHP , CPHT, CRCT , DA A , DATA,DLR,DRCT,DS, 

♦ FAC  (10)  , FCS  , H,  INC,  K,H,  HCRS,BXHRS, 

♦ NCP, NDP, N SP ,OSA ,OST, PI  UP, PHE ,PPRS , BEFUR B, PHC, 

♦ SA,SAA,SHTBI,SOSI,SPH,SPRS,SRCT,STE,SHDEV,SHFAC, 

t TC.TCCA  D, TE ,TR, TH ,TNCAD,XUC,TOH, XSCAD, TSLR 

INTEGER  CADRE 

REAL  I HC ,K ,HCRS, B XBRS 

COBHON  /RD2/  A ,COC  (1 50 1 ,COD  (150)  , COS  ( 150)  , INOS E (150)  , N SEC  (1 50)  , 

♦ NSED(ISO) ,NSES(1S0) ,SEC(150) ,SENAHE(  150,24) 

REAL  NSEC,NSED,NSES 

INTEGER  A 

COBHON  /RD  1/  ENYR  (1C)  , PA  , FA  NAHE  ( 13 , 2 4)  , HHCF  <1 0)  , INOF  A ( 10)  ,HNH  (10) 

♦ SIZE  (1C)  , SHI  (10)  ,SHCF(10)  ,SHFIX(  10)  ,SHVAR(10)  , 

♦ HEIGHT  (10) 

INTEGER  FA 

REAL  HHH 

COBHON  /RDU/  INO  ( 200)  - LR NAHE  (200 , 24)  , LRPART (2 00 , 12)  , HCI  (200)  , 

♦ HTBI  (203)  , N , PA  (200)  , QPA  (200)  ,QR  (200), RR  (200)  , 

♦ UC(2C0) 

INTEGER  QPA, OR 

REAL  HTBI 

COHHON  /RD5/  BCHH  (200) ,CBCHH(200) , CRH ( 200) . CRTS  1 (200) ,CRTS2 (200)  , 

♦ DBCH  H (20r ) , DHH  (200)  ,DRTS1  (200)  ,DRTS2(2C0)  , 

♦ DRTS  3 ( 200)  , FPR  (200)  ,IHH(200)  ,IN015  (200)  ,N15, 

♦ PAHH  (200)  , RIP  (200)  , RL(200)  , RHH  (200)  ,SHH(200)  , SRTS1(200(  , 

♦ HOR1  (2C0)  ,HOR2(200)  ,HOR3(200) 

REAL  IHH 
INTEGER  PL 

COHHON  /SENS/ 


COHHON  /A U XI / 


COHHON  /AUX2/ 


FIN  C, LDCR  H, LDCRTS, LDDNH , LDDRTS , LDER V , LDFPR, LDFR, 
LDHCI , LDRH,  LDS  RTS  , LDH OR,  LDUC 

CCOND  (200)  ,COND (200)  .CRTS  (200)  , DCOND  (200)  , 

DRTS  (200)  , SNRTS  (200)  ,SRTS(20C)  ,HR(200) 

YFR  (200)  , HFR  (200) 


00000010 
00000020 
*00000030 
00000040 
*00000050 
*00000060 
*00000070 
*00000080 
*0  0 00  0 0 9 0 
•00000100 
*00000110 
*00000120 
*00000130 
*00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
,00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000630 


147 


O f' 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


COBBON  /XUX3/  CCLH(200)  ,DCLH(200)  ,dlh 
COBBON  /A0X4/  CXS  (2C0)  , DAS  (200)  ,SXS  (200) 

COBBON  /A0X5/  DSTK(200),ECBT,BCP(200),STK  (200  ( , STK 1(200), Z 
INTEGER  STK,  STK  1 


COBBON 

/Cl/ 

Cl , Cl D, C1P 

CCBBON 

/C2/ 

C2 , C2C,C2D,C2L  (200) 

, C2S 

COBBON 

/C3/ 

C3,C3C,C3D,C3L  (200) 

, C3S 

COBBON 

/C4/ 

C4 , C4  I, C4L  (200)  , C4R 

COBBON 

/C5/ 

C5 

COBBON 

/C6/ 

C6  ,C6C,C6D,C6I,C6R, 

C6S 

COBBON 

/C7  / 

C7 

COBBON 

/C8/ 

C8 ,C8C,C8D,C8I,C8R, 

C8S 

COBBON 

/C9/ 

C9 ,C9C,C9D,C9I,C9L (200) 

COBBON  /CIO/  C10,C10HI  (10)  ,C10I,C10R,C10SI  (10) 
COBBON  /NCOS/  CLR  ,PBPA  ( 10)  ,S  BBH,  SERB,  STHH 
COBBON  /TO XDC/  TDXOC 
COBBON  /TDPB/  IDFR ( 200 > ,TOPR (200) 

COBBON  /TDK/  TDK 

COBBON  /TDOC/  I DUC  (200 ) ,TDUC  (200) 

COBBON  /TDBOR/  I DVOR  (200)  ,T  DBOR  (200)  , IP  (2  00) 

COBBON  /TDPPR/  I DPPR  (200)  ,T DPPR  (200) 

COBBON  /TDCBH/  I DCBH  (200)  ,T  DCB  U (200) 

COBBON  /TDDBH/  I DDBH  ( 200)  ,T  DDBH  (200) 

COBBON  /TDRB/  IDRR  (200)  ,TDRR  (20P) 

COBBON  /TDSRTS/  I DS RTS  (200)  , SPSRTS  (200)  , TDSRTS  (200 ) 
COBBON  /TOCRTS/  CPCRTS  (200)  , IDCRTS  (20C)  , TDCRTS  (200) 
COBBON  /TODRTS/  DPDRTS  (200)  , IDDRTS  (200)  , TDDRTS  (200) 
COBBON  /TDBCI/  I DBCI  ( 200)  , BC IC  (2 00)  , TDHCI  (200 ) 
COBBON  /CHLCC/  CCF,CP,  CHLCC,  DCP,  DP,  SCP,  SP 


1 


PORBXT  (>1  PINC» 1 , P6 . 3,  • LDCBH*',I3,*  LDCRTS-'.IS, 

♦ • LDDBH«*,I3,*  LDDRTS» • , 1 3/*  LDERV*’ ,1 3 , • LDPPR«‘,I3. 

♦ • LDP  R»*  ,13,*  LDRCI*',n,'  LDRR»•,I3,,  LDSRTS«',U/ 

♦ • LDNOR**,!),*  L DOC*' , 13/) 


00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000700 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

00000820 

00000830 

00000840 

00000850 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

00001060 

00001070 

00001080 

00001090 

00001100 

00001110 

00001120 

00001130 

00001140 

00001150 

00001160 

00001170 

00001180 

00001190 

00001200 

00001210 

00001220 

00001230 

00001240 

00001250 

00001260 
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2 PORHAT  (IX, 

♦ • PRNT 

3 PORN  AT  (IX, 

♦ • RAISE 

4 POBNAT  (IX, 

♦ • CRTS* 

5 PORHAT  (IX, 

♦ • SRTS* 

6 PORHAT  (IX) 

7 PORRAT  (IX, 

8 PORRAT  (IX, 

9 PORRAT  (IX. 

10  PORRAT  (IX, 

11  PORHAT  (IX, 

♦ • STKl* 

12  PORHAT  (11/ 

13  PORRAT  (•  I* 

♦ • 

14  PORRAT  (•  Cl 

• C2C**,E10 

• C3C**,E10 

• C4I«» ,E10 

• C6C**,E10 
E10. 5,*  C6* 

• CRC*'  , El  0 
E10.5,  • C8* 

• C 9C* ' , El  0 
E10 . 5,  • C9* 

• TOTAL  LCC 

• CLH**  , El 0 

15  PORRAT  (IX/' 


EX IT* • , T 3, • ITER**, 13, 

',13,'  REREAD**  , 1 3/) 

CON  PLO*'  , P8, 5,  * H AXP  A *•  ,13  , • 
**  ,13/) 

I**, 13,*  CCORD»*,P6. 3,* 

, P6. 3, • DCOND*  * ,P6 . 3) 

I = * ,13.*  DRTS  =*  , P6 . 3,  * 

, P6 . 3 , * HR**  , P6 • 3) 


HAIPHT** ,13/ 

RAILS* ' ,13, 
CORD*  1 , P6«  3, 
SNRTS*  ' , P6.  3, 


RPR** , P 12.  3) 

DCLH** ,P12 . 3 ) 

DAS*' , P12.3,  * SAS  = * ,P12.  3) 
RCP*  • , 15,  * STK**,I5, 


C4L*'  , E10.5, 


I**, 13,*  TPR*' » PI  2. 3, * 

I* ' , 1 3,  • CCLH *•  , P 1 2 . 3,* 

DLH=* , PI  2. 3) 

I**, 13,'  CAS=*,P12.3,* 

I**, 13,*  DSTK*' , P12.  5,  ' 

15) 

ECRT*  ' , P12. 5) 

• ,1 3 , • C2L*« .E10.5,*  C3L* • , E10 . 5, • 

C9L  *•  , El  0, 5) 

D**,E10.5,*  Cl  P*  • , E10. 5,  • C1»* , El  0.5/ 

.5,'  C2D** ,E10.5,*  C2S** , E 10 .5, * C2**,E10.5/ 

5,*  C3D**  ,E10. 5,  • C3S*'  , El  0 .5,*  C3»*,E10.5/ 

5,*  C4R=*,E10.5, * C4* • , El 0. 5/*  C5*',E10.5/ 

5,*  C6D** , El 0. 5, * C6S** , El 0.5, • C6I«* . E10. 5, • 
*,E10,5/*  C7»* , El 0, 5/ 

.5,*  C8D** , E10. 5, * CBS**, E10.5,  • C8I*« , E10. 5, • 

• , E 1 C . 5/ 

5,*  C9D* • ,B10. 5, • C9S*  * , E10. 5, * C9I*', E10.5, • C9R-', 
* , E1C. 5/*  C10I*',E10.5, • C10R-* ,810.5,*  C10**.E10.5/ 
COST*  * , E14 , 9/ 

.5,*  SRHH**  , El  0 . 5,  • S PH  H*  • , E10. 5,  • STH  H*' , El  0. 5) 

Z*'  ,E10.5) 


C6R" 

C8R* 


LL  *7 

IF  (PRNT.EQ.0)  LL  *6 

HRITE  (LL, 1)  PI NC, LDCRH.LDCRTS, LDDHH , LDDRTS,LDERT,LDPPR,  LDPR, 
♦ LDRCI  , LDRH,  LDSRTS,  LDHOR, LDUC 

H R IT  E (LL , 2)  EX  IT,  ITER , RAXPHT, PRNT,  R EREA D 
HRITE (LL, 3)  CONPLO, HAXPA , HAXLR, RAIS E 

C 

DO  55  1*1, N 

HRITE  (LL  ,4  ) I,CCOND(I)  ,CONO(I)  ,CRTS(I),  DCOND(I) 

55  CONTINUE 

DO  56  1*1, N 

H RIT E (LL , 5)  I,DRTS(I)  ,SNRTS(I|  ,SRTS(I)  ,HR(I) 

56  CONTINUE 

C 

HRI-E (LL,6) 

DO  57  1*1,  N 

H RIT E (LL , 7)  I,  T PR  (I)  , HPR  (I) 

57  CONTINUE 

r* 

L 

HRITE ( LL ,6 ) 

DO  58  1*1,  N 

HRITE  (LL  ,8 ) I , CCLH  (I ),  DCLH  (I) 

58  CONTINUE 

HRITE (LL, 9)  DLH 

HRITE (LL,6 ) 

DO  59  1*1, N 

HRITE  (LL, 10)  I,  CAS  (I),  DAS  (I)  ,SAS  (I) 

59  CONTINUE 


00001270 

00001280 

00001290 

00001300 

00001310 

00001320 

00001330 

00001340 

00001350 

00001360 

00001370 

00001380 

00001390 

00001400 

00001410 

00001420 

00001430 

00001435 

00001440 

00001450 

00001460 

00001470 

00001480 

00001490 

00001500 

00001S10 

00001520 

00001530 

00001535 

00001540 

00001550 

00001560 

00001570 

00001580 

00001590 

00001600 

00001610 

00001620 

00001630 

00001640 

00001650 

00001660 

00001670 

00001680 

00001690 

00001700 

00001710 

00001720 

00001730 

00001740 

00001750 

00001760 

00001770 

00001780 

00001790 

00001800 

00001810 

00001820 

00001830 

00001840 

00001850 

00001860 

00001870 
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WRITE  (LL,b) 

DO  fiO  1*1, ■ 

WRITE(LL,11)  I.DSTK  (I)  , HCF  (I ) , STK  (l)  ,STK1  (I) 

CONTINUE 

WRITE  (LL, 12)  ECHT 
WRITE  (LL,  6) 

DO  SI  1*1, W 

W RIT E(LL , 13)  I,  C2L  (I)  ,C3l(I)  ,C4L(I)  ,C9L(I) 

CONTINUE 

CTOT  = CWC2»C3*C4»C5»C6»C7*C8*C9*C10 
WRITE  (LL,  1»)  C1D,C1P,C1,C2C,C2D,C2S,C2, 

♦ C3C,C3D,C3S,C3,C4I,C4R,C4,CS,C6C,C6D,C6S, 

♦ C6I,C6R,C6,C7, C8C, C8D,C8S ,C8I ,C8R,C8,C9C,C9D,C9S,C9I,C9I,C9, 

♦ Cl  01 ,C1 OR ,C10 ,CTOT,CLH,SH8H, S PHH,  STHR 

WRITE  (LL,  IS)  Z 

RETORN 

END 


00001880 
00001890 
00001900 
00001910 
00001920 
000019  30 
00001940 
000019S0 
00001960 
00001970 
00001 97S 
00001980 
00001 98S 
00001990 
00002000 
00002010 
00002020 
00002030 
00002040 
00002050 


SUBROUTINE  DPRIN? 


SEEK  IGLOO  LIFE  CYCLE  COST  MODEL 
THIS  PROGRAM  IS  DESIGNED  TO  Rtl  N REPETITIVE  LIFE  CYCLE  COST 
CALCULATIONS  IN  AN  INTERACTIVE  ENVIRONMENT.  THERE  ARE  SI*  INPUT 
DATA  SETS; 

UNIT  s’-  RECEIVES  INPUTS  TYPED  BY  THE  USER  AT  THE  TERMINAL. 
UNIT  11  - MISCELLANEOUS  INPUTS  (MAINLY  SCALARS). 

UNIT  12  - INPUTS  BY  SUPPORT  EQUIPMENT  TYPE. 

UNIT  13  - INPUTS  BY  FUNCTIONAL  AREA. 

UNIT  14  - INPUTS  BY  LRU  TYPE  (LRU  FILE  1). 

UNIT  15  - INPUTS  BY  LRU  TYPE  (LRU  FILE  2). 

TBO  FILES  RECEIVE  THE  OUTPUT; 

UNIT  fi  - OUTPUT  THAT  GOES  TO  THE  TERMINAL. 

UNIT  7 - OUTPUT  THAT  GOES  TO  THE  OFF-LINE  PRINTER. 


COMMON  BLOCK  ORGANIZATION 

IN  GENERAL,  FOR  EVERY  SUBROUTINE  THERE  TS  A COMHON  BLOCK  THAT 
CONTAINS  ALL  OF  THE  VARIABLES  THAT  FIRST  RECEIVED  VALDES  IN  THAT 
SUBROUTINE.  HENCE,  ALL  VARIABLES  THAT  ARE  READ  FROM  THE  UNIT  11 
FILE  IN  SUBROUTINE  READ1  HILL  BE  IB  COMHON  /RD1/;  ALL  VARIABLES 
CALCULATED  IN  SUBROUTINE  AUXIL1  HILL  BE  IN  COMHON  /ADI1/;  ALL 
VARIABLES  CALCULATED  IN  SUBROUTINE  COST1  HILL  BE  IN  COMMON  /Cl/; 

ALL  VARIABLES  CALCULATED  IN  SUBROUTINE  DFR  HILL  BE  IN  COHHON/TDPR/. 


COMMON  /CNTL/  EXIT, ITER , HAXPHT, PRUT,  REDO , BEREA D 
INTEGER  EXIT, PRNT, REDO, REREAD 

COMMON  /ERROR/  I ERROR , IHA RN 

COMMON  /INI T/  CON FLO, HAIFA, M AX LR,HAXSE 

COMHON  /RD1  / A DCM  , ADPM, B,CAA, CADRE, CCH  P,  C DR, CDNH,  CLR  , CON  F,  CPH  I, 

♦ CPMP , CPHT, CRCT, DA A , DATA,DLR,DRCT,DS, 

♦ FAC (10)  , FCS ,H,IMC,K,M, HCRS , H XHRS , 

♦ NCP,NDP,NSP,OSA,OST,PIDP,PHR,PPRS,REPUBB,RNC, 

♦ S A, S AA, SMTBI, SOSI , SPM , SPR  S , SRCT, STE ,SHDEV,SHFAC, 

♦ TC,TCCAD,TE,TR,TH,THCAD, XUC, YOH, YSCAD. YSLR 
INTEGER  CADRE 

REAL  INC, K, HCRS, HXHRS 

CCHHON  /RD2/  A , COC  (1 5n ) , COD  (150)  , COS  (150)  ,INOSE(15C)  , N SEC  (150)  , 

♦ N S ED  ( 150)  , NSES  ( 150)  ,SEC(150)  ,SENAHE(  150 ,24) 

REAL  NSEC, NSED, NSES 

INTEGER  A 

CCHHON  /RD  3/  FN  YH  (1C)  , FA  , FA  NAME  ( 10 , 24)  , HHCF  (1 0 ) , INO  FA  ( 10)  ,HHH(10) 

♦ SIZE  (10)  , SHI  (10)  ,SHCF(10)  ,SHFIX(10)  ,SHVAR(10)  , 

♦ HEIGHT  ( 1n) 

INTEGER  FA 

RIAL  HNH 

COMHON  /RD4/  INO  ( 20C)  , LR  NAH E ( 200 , 24)  , LRPART (2  00 , 1 2)  , MCI  (200)  , 

♦ MTBI  (200)  ,N,  PA  (200)  ,QPA(200>  ,QR(200),RH  (200)  , 

♦ UC  (200 ) 

INTEGER  QPA.OR 

RIAL  HTBI 

COMHON  /RD5/  BCHH  (200)  ,CBCHH(200)  ,CHH  (200),CRTS1  (200)  ,CRTS2  (200)  , 


00000010 
00000020 
•00000030 
•00000040 
•00000050 
•00000060 
•00000070 
* 000000B0 
•00000090 
•00000100 
*00000110 
•00000120 
*00000130 
•00000140 
•00000150 
*00000160 
•00000170 
00000180 
•00000190 
*00000200 
*00000210 
*00000220 
•00000230 
*000002*0 
•00000250 
*00000260 
•00000270 
*00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
30000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
,00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000630 
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c 


c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


♦ DBCHH  (200  ) , DHH  (200)  , DRTS 1 (200)  , DRTS  2 ( 200)  , 

♦ DRTS  3 ( 200)  ,rPR  (200)  ,IHH  (200)  ,11015  (200)  ,N1S, 

♦ PANH  (200)  .RIP  (200)  , RL  (200)  , RNH  (200) , SHH  (200)  , SRTS1  (200)  , 

♦ R0R1  (200)  ,ROR2(200)  ,ROR3(200) 


REAL  IHH 
INTEGER  RL 

COHHOM  /SENS/  FINC, LDCHH, LDCRTS , LDDNH,  LDDRTS , LDEIT  , LDFPR,  LDPR , 

♦ LDRCI .LDRR.LDSRTS, LDROR.LDOC 

COHHOM  /AO X 1/  CCOVO(200)  ,COND(200)  ,CRTS(200)  ,DCOID(200)  , 

♦ DRTS  (200)  ,SNRTS(200)  ,SRTS  (200)  ,11  (200) 

CONNOR  /AOX2/  TPR  (200)  ,«P8  (200) 

CO B NON  /A  0 13/  CCLH  (200 ) , DCLH  (200)  , DLH 
CONNOR  /A 014/  CAS  (200)  , DAS  (200)  , SAS  (200) 

COHNON  /A 0 15/  DSTK  ( 200)  , ECHT , HCP  (200)  , STK  (200 ) , STM  (200)  ,Z 
INTEGER  STK.STK1 

COHNON  /Cl/  C1,C1D,C1P 

COHNON  /C2/  C2  ,C2C,C2D,C2L  (203)  , C2S 

COHNON  /C3/  C3,C3C,C3O,C3L(200) ,C3S 

CONRON  /CM / C4  ,C4I,C4L  (200)  ,C4R 

COHNON  /C5/  C5 

COHNON  /C6/  C6 ,C6C,C6D,C6I,C6R,C6S 
COHNON  /C7 / C7 

CONNOR  /C8/  C8 ,C8C,C8D,C8I,C8R,C8S 

COHNON  /C9/  C9 ,C9C,C9D,C9I, C9L (200)  ,C9R,C9S 

COHNON  /CIO/  CIO.CICHN (10) ,C10I,C10R,C10SR (10) 

COHNON  /NCOS/  CLH  ,PRPA  ( 10)  , S HHH,  SPNH,  STNH 

COHNON  /TDEOC/  TDIOC 

COHNON  /TDPR/  IDPR (200)  ,TDPR (200) 

COHNON  /TDR/  TDK 

COHNON  /TDUC/  I DOC  ( 20" ) ,TDDC  (200) 

COHNON  /TDROR/  I DROP  ( 20C)  ,T DNOR  ( 200) , RP  (2 00) 

CONHON  /TDPPR/  I DFPR(20P)  .TDPPR  (209) 

COHNON  /TDCHH/  I DCHN  (200)  ,T  DCH  H ( 200) 

CONNOR  /TDDNH/  I DDNH  ( 200)  ,TDDNH  (200) 

CONNOR  /TORN/  I DRH  (200)  ,TDRN  (20C) 

CONNON  /TDSRTS/  I DSRTS  (2C0)  . SPSRTS  (200)  , TDSRTS  (200) 


0000064 J 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
00000830 
00000840 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
00001080 
00001090 
00001100 
00001110 
00001120 
00001130 
00001140 
00001150 
00001160 
00001170 
00001180 
00001190 
00001200 
00001210 
0000 1220 
00001230 
00001240 
00001250 
00001260 
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c 

c 

c 

c 


1 

2 

c 


3 

a 

c 


5 

6 


7 


e 


CORHON  /TDCBTS/  CPCFTS(200)  ,IDCRTS(200)  ,TDCRTS(200) 
COH HON  /TDDBTS/  DPDRTS  (200 ) , IDDRTS  (200)  ,TDDRT S (200) 
COHHON  /T0HCI/  IDHCI  (200)  ,HCIC  (200)  ,TDHCI  (200) 
COHHOH  /CHLCC/  CCP,  CP,  CHLCC,  DCP ,DP,SCP,SP 


DO  2 I *1  , H 

BRIT E (7,  1)  I,TDPR  (I)  ,TD0C  (I)  , TORN  (I)  ,TDPPR(I) 

PORHAT  <•  I*  ',13,'  TDPR-  • , El  1 • 5,  • TDOC-'  ,E1 1 .5,'  TDRH-'  ,B1 1 . 5, 

♦ • TDPPR-' , El 1 . 5) 

CORTIKOE 

DO  « 1-1 , B 

BRITE (7 , 3)  I ,TDCHH (I)  ,TDDHH(t|  ,TDRCI(I)  .TDBOR  (I) 

PORHAT  (•  I-'  ,13,  • TDCRH*',El1.5,'  T DDH  B-*  , El  1. 5,  • TDfICI-', 

♦ Ell.  5,*  TDBOR-', Ell. 5) 

CORTIHOE 

DO  6 1-1,8 

BRIT  E (7,  51  I,  TDSBTS  (I)  , TDCRTS  (I)  , TDDBTS  (I) 

POBHAT  <•  I-', 13,'  TDSRTS-',B1 1.5,'  TDCRTS- • ,B1 1 .5 , ' TDDBTS-', 

♦ Eli. 5) 

COBTIHOE 

IP  IPRBT.BB.0)  BRITE (7 ,7)  TDXDC,  TDK 
IP  (PIBT.BE.  1)  BE  ITE  (6 ,7)  TDXDC, TDK 
PORHAT  ( • DXOC-',  E11.5,  • DR-', Ell. S) 

RETORR 

BHD 


00001270 
00001200 
00001290 
00001300 
00001310 
00001320 
00001330 
000013*0 
00001350 
00001360 
00001370 
00001380 
00001390 
00001*00 
00001*10 
00001*20 
00001*30 
00001**0 
00001*50 
00001*60 
00001*70 
00001*80 
00001*90 
00001500 
00001510  \ 

00001520 
00001530 

000015*0  1 

000015*5 

00001550 

00001560 

00001570 

00001580 
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